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• Insegno in una scuola con 4 
C0M64, un Prive 1541 e 4 datasse!- 
te. Abbiamo acquistato un softwa- 
re Logo in italiano. E’ possibile far- 
lo girare conteremporaneamente 
sulle 4 macchine con un Prive so- 
lo? Se si t come si fa? 

(Franco) 

□ 1) Sì è possìbile purché quando un 
64 accede a qualsiasi periferica l'altro 
non esegua alcun comando similare, 

2) Una risposta sia pure breve sulle net- 
work non è possibile in quanto non sa- 
rebbe sufficiente una semplice 
elencazione . 

3) Un TV monitor ha sempre, più o me- 
no, le medesime caratteristiche dì fun- 
zionamento e dì prestazioni, una vera 
differenza è apprezzabile solo parago- 
nando un TV monitor ad un monitor pro- 
fessionale di costo notevolmente 
superiore. 



m Sono interessato al programma 
“Cross referente*' apparso su 
Commodore. E* possibile averne 
una copia? SI può stampare la pa- 
gina grafica ottenuta con il Koala, 
avendo a disposizione un 64 o un 
128? E* utilizzabile la MPS 802? 
(Giuseppe Lezzi) 

□ Presto tutti i programmi apparsi su 
Commodore saranno disponibili su di- 
sco o cassetta. Per ciò che concerne 
invece la possibilità di stampare la pa- 
gina grafica creata dal Koala, si può 
affermare che non c'è impedimento poi- 
ché esiste un programma apposito che 


viene fornito direttamente insieme alla 
famosa tavoletta , il programma si chia- 
ma KPAINTER e funziona anche con la 
MPS 802. 



• Possiedo il Commodore C16 e la 
stampante GP-100VC. E* possibile 
veder pubblicato un programma In 
L.M. per la stam pa della pagina gra- 
fica in alta risoluzione? 

(Vincenzo Settembre) 

D Abbiamo provato fa stampante men- 
zionata con il Commodore 64 e, in linea 
di massima non abbiamo trovato diffi- 
coltà (TutìBzzD dato che la medesima 
meccanica è utilizzata perla MPS 801. 
Solo il firmware fra le due stampanti può 
considerarsi diverso e quindi anche le 
routines per la stampa della pagina gra- 
fica per il C16 e il 064 non possono 
essere uguali. Consiglio di adottare con 
le dovute modifiche quelle routines che 
sono state pubblicate su Commodore 
Computer Club per il 64. L'intervento in 
sintesi sarà quello dì adattare sia fa par- 
te inerente ai puntatori di pagina che 
alle specifiche delia stampante. 

• Ho trovato molto interessante II 
programma “Codice fiscale*’ ma 
purtroppo anche dopo aver con- 
trollato varie volte II listato non rie- 
sco a farlo funzionare per bene. In- 
seriti i dati II codice che viene fuori 
è esatto ma viene segnalato errato. 
(Luciano Del Vecchio) 

□ Il programma in questione è perfet- 
tamente funzionante, sta solo nella pa- 
zienza dì verifica dei lettore trovare Ter- 


rore di battitura. Non soldi come spie- 
gato nell* articolo, occorre inserire in 
maniera corretta gli ultimi ire numeri che 
si riferiscono al codice della città di na- 
scita. Questo codice non poteva essere 
definito nella totalità dei casi in quanto 
ne avremmo dovuto pubblicare un volu- 
me intero. 

m MI Interesserebbe sapere quali 
sono le riviste e I libri che padano 
del Commodore 16, del suo Basic e 
che pubblicano anche programmi 
di giochi, didattici e di utilità. Vorrai 
sapere anche dove si possono 
reperire. 

(Dante Colombo) 

□ Mi sembra logico ! Le nostre edizioni 
parlano anche di CI 6, Oppure? Chio- 
derà lei. Bhè, le librerie specializzate 
sono colme di pubblicazioni a riguardo. 



* La vostra rubrica sulla corri- 
spondenza è ampia e spesso arti- 
colata ed esauriente. Un Intelligen- 
te lavoro al servizio del lettore. Mi 
auguro possa trovare posto anche 
la risposta al miei quesiti. 

1) E k possibile collegare ad uno 
stesso drive due 064 (per leggere 
lo stesso programma e memoriz- 
zarne le eventuali elaborazioni)? 

2) Quali sono I tipi df network (e le 
loro funzioni commercializzati in 
Italia? 

3) C'è differenza di funzionamento 
e quindi di definizione dell 1 immagi- 
ne tra i vari TV a colori predisposti 
all 'opzione monitor? 

(Alessandro Marocco) 
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• Vorrai sapere se è possibile 
usare come stampante per il 
Commodore/64 la macchina per 
scrivere Ibm 6747 che è venduta 
come stampante per i computer 
della Ibm. Se ciò risulta possibile, 
vi sarei grato se mi indicaste nei 
dettagli come ciò possa essere 
eseguito. 

(Mario Olla) 

□ F necessario sapere quale tipo di 
protocollo dì comunicazione prevede la 
stampante in questione- Per il C64 poi ci 
sono in commercio vari tipi di interfac- 
ce da quatta seriale RS232, atta paral- 
lela Centronics fino ad arrivare atta IEEE 
488>, 

• Posseggo lo Spectrum Simula- 
tor per il CS4, volevo sapere se in 
commercio esistono simulatori 
d'altri computer, sempre perii C64, 

(Aldo Fabiani) 


□ Anche in redazione è pervenute 
questo valido simulatore che possiede 
l'unico inevitabile lìmite della memoria 
disponibile. Simulatori dì altri computer 
invece rientrano ancora nella famiglia 
Commodore e si deve parlare al singo- 
lare e non ai plurale in quanto l'unico 
prodotto di questo genere sì chiama 
PET SIMULA TOR e permette di far gira- 
re su C64 ì vecchi programmi delta sene 
PET , 200 h 3000, e 4000. Niente di ec- 
cezionale, però, 

• Gentile redazione ho letto il vo- 
stro servizio sul modem nel nume- 
ro 12 della vostra rivista e sono cu- 
rioso di sapere se esiste o verrò 
creato un modem anche per il C16 
di cui sono in possesso. 

(Claudio Grassi) 

□ Sappiamo che la Commodore ha 
annunciato un modem per il CI 6, ma- 
.... purtroppo non l'abbiamo mai visto 


C 4 è da sperare che , come per il C64 . 
l'industria privata sopperisca a queste 
richieste. 

• E* possibile trasferire i files se- 
quenziali dal C-16 al C-64? Se si, 
come? 

(Roberto Ferro) 

□ Questo tipo di trasferimento è possi - 
bife solamente se si possiede l'unità di- 
sco; con le cassette Sì hanno grossi pro- 
blemi perchè il tipo di registrazione è 
diverso tra i due computer. 


• Vorrei sapere se è possìbile re- 
gistrare direttamente la musica 
sull’uscita audio/vìdeo del C64. 

(Giorgio Fiutali) 

D E' possibile coltegando f Pin 2 (mas- 
sa) e 3 (uscita audio) dello spinotto 
audio f video ad un normale amplificato- 
re audio 



TUTTO 

PER LA PULIZIA 
DEL COMPUTER 


Lo polvere, il fumo, le contaminazioni 
esterne, possono deteriorare le 
apparpech tafure- p cancellare i dotr. 
Un coi fonte uso dei prodotti pulizia, 
mortitene inalterati dischi t nastri , 
SUperfid, corte di credito, ecc. 

Tutti ì prodotti sono omologali dalle 
migliori coso prodottici di drive. 


far rusco ogni altro tipo di accessorio per computer. 


Dislfibutore esclusivo per l'Italia 


00199 Roma, Via Colatavi, 23 - TeL 8392046-8393438 Telex 621288 


Speciali confezioni in formato 
economico , studiate appo site mente per 
la pulizia dei minicompoters, contengono 
prodotti, facili do usare, che assicurano 
una corretta protezione dei video, 
tastiere, drive 3" 1/2, 5" 1/4, 
Irs vendita anche presso ì negozi Buffetti. 
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STUDIO D 

PER NON SMARRIRE MAI IL FILO DEL DISCORSO. 
STUDIO D 

EMITTENTI RADIOTELEVISIVE INDIPENDENTI CHE SI FANNO SENTIRE. 
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128KBYTES 





MSX 




Personal Computer è fa nuova rivista Systems per gli utenti Commodore, M5X, 
Sinclair. 

Dal mese di gennaio in edìcola. 128 pagine a sofe 3000 lire; allo stesso prezzo, la vosira 
rivista, integra e migliorata, e molto di più. 

Non solo tre riviste per tre diversi utenti; Personal Computer è anche un'idea nuova 
per far comunicare tutti gli hobbisti. 

Personal Computer: 128 Kbytes di rivista, tutti i mesi in edicola. 



// mercato si evolve. 
Anche noL 



Anche su questo numero di Commodore vi 
presentiamo una serie di Snn di particolare interesse. 
Alcune sono state inviate da lettori che come voi si 
cimentano, appena possono, sul computer per 
scoprirne i più reconditi segreti. 
E' proprio attraverso piccole curiosità, spigolature & 
notizie brevi che si’ possono costruire programmi con 
caratteristiche interessanti. 
Quando scoprite una qualsiasi notìzia che potrebbe 
essere utile a qualche altro lettore, scivete! 
Sicuramente anche se a prima vista sembra banale 

può interessare. 

Elaborate ed inviate sempre i vostri programmi a: 


Spati Rivista COMMODORE 

rubrica Cornucopia 


Eugenio Coppali 

Viale Famagosta, 75 

20142 Milano 


$94 


Peri menù. Per inserire in un riquadrala videata di un menu, di 
un risultato ecc., si può utilizzare l'unita routine. 

Le lince 10 c 20 si possono mettere all'inizio del programma 
ogni volta che servono: meglio se sostituite con le istruzioni: 
Rz— ... : 0=... : X=...; usando poi le linee SO, 60 e 70 come 
subroutine, aggiungendo naturalmente un RETURN in fondo 
alla linea 70 e sostituendo il CLEAR in fondo alla linea 40 con 
GOSUB. 

Tiberio Di Filippo 

10 DIM R*(24 ) JR*= " IH0ME 3 " 

£0 FDR 1 = 1 TO 24 : R$=R$+ " [D0LN3 " *R 
*< I >=R*:NEXT 

30 IMPUT "RIGA E COL0NW;R,C 
40 INPUT "AMPIEZZA ORIZONTALE E V 
erticale";x,Y!Print*cclear] , ‘ 

S0 PRINTR*<R> TAB(C) " S sFOR 1 = 1 
T0 X!PRINT"-"J tNEXT SPRINT"-," 

S0 FOR 1=1 TO YiPRINT TABCC)"|"; 

TAB (C+X + 1 ) " l “ « NEXT 
70 PRINT TAB CCJ FOR 1 = 1 TO Xs 

PRINT"-V 1NEXT SPRINT"- 1 " 


120 P=A-3B*X 
130 Q=A+41*X 
140 R=A+39*X 
145 GOSUB 220 

150 FOR Y=M+ 1 TO PsPOKE Y,CiNEXTY 
160 FOR Y=P+40 TO Q STEP 401POKE Y 
,C:lsEXTY 

170 FOR Y=0- 1 TO R STEP -lsPOKE Y, 
CsNEXTY 

180 FOR Y=R-40 TO M STEP -40:POK 
- E Y, CsNEXTY 
200 NEXTX 

210 PRINT" [H0fC3CENTR0:A = "A“ SPIRE 
I N= ■ INT (N) ! EMJ 

220 IF <P- 1024 )/40= INT ( (P- 1024 )/40 
) THEM N=X-l:GOTO 210 
230 IF <P-1063>/40=INT<<P-1063)/40 
ì THEN N=X- 1 s GOTO 210 
240 RETURN 


$96 



Cancella a spirate. Potrebbe essere utile inserire, in un pro- 
gramma, una routine che cancella una propone di schermo, 
creando un movimento a spirale. 1 

La spirale è definita dalla posizione del CENTRO (A) e dal 
numero delle SPIRE (N). la variabile (C) è per il carattere da 
usare. 

La parte essenziale del programma va dalla riga 100 alla riga 
200, c disegna la spirale, 

La riga SO definisce automaticamente il numero delle spire 
(N) in funzione della distanza del centro prescelto dai bordi 
superiore ed inferiore dello schermo. 

Le righe 220 c 240 controllano che la spirale non oltrepassi i 
bordi destro e sinistro, 

Tonnarelli Angelo 

30 INPUT " 1065< >i9sa";ft 

40 IF A< 1085 OR A >1982 THEN PRIN 
T" [UP1 CRVS JMIN165 MAX 1982 ERV 
OFF 1 " ; : GOTO 30 

50 N= < 2023 -A >/4 1 i I F < A- 1024)/4 I <N 
THEM N&(A-1024)/41 

B0 C=64 

70 PRINT* E OLEARI " 

100 FOR X=0 TO N 
1 10 M-A-4 1 *X 


Quasi una macchina da scrìvere. Il programma permette la 
scrittura simultanea tra la tastiera e la stampante. Infatti ogni 
carattere inserito dalla tastiera, la stampante lo scrive sut 
foglio. 

La versione base può essere arricchita e variata facilmente; 
ad esempio basta sostituire OPEN4 t 4 f 7 ad OPEN4,4 per seri* 
vere in Minuscob/Maiuscolo. Inoltre è possibile controllare su 
video dò che si sta scrivendo (ma non correggere!) 

Nardi Antonio 


80 OPEN 4,4 
30 GET A$: IF A$= pp 
100 PRINTfl*; 

110 RRINT«4,AS; 

120 GOTO 90 


THEN 


90 
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CIELO STELLATO 


C 16 $ OMAGGIO 


U n omaggio per i C scdrcisti, Ecco Ijcn otU> prognnnmi. Ognu- 
no di essi serve a qualche cosa, dal piccolo grafico all'effetto 
terremoto, ad un miscuglio di colori, eccetera. 


GRAFICO 1 

1 GRAPHICI , I 

2 FORD=0TO3BSTEP5 

3 A=INT(RND<1 )*50) 

4 C IRCLE , 140 , 1 00 ,D , A 

5 NEXT 

6 G0T02 


1 GRAPHICI , 1 

2 COLOR0, 7, BICOLORI ,8 
4 FORN= 1TO300 

3 ftaINT<RMD<0)#319) 

6 B=INT<RNDC0)*199> 

7 DRAUI, A ,B 

a rcxT 


OTTO 

1 GRAPHICI , 1 

2 FORX=0TO2*«STEP.01 

3 DRAW,100*COS<X)*Sm<X) + i00,99 
•SINCX) + 100 

4 ISEXT 


COLOR I 


PROVA SCHERMO 


1 FCRM=0TO999 

2 C= 1NT <RW) C 1 ) * 16 ) 

3 POKE3072+M, 160 

4 POKEB048+M,C 

5 NEXT s GOTO 1 


1 PR1NT-J* 

2 A = I NT < RMD ( 1 ) t£55 ) 

3 B=INT<RND<1>*20> 

4 FORT »0TO999STEPB 

5 POKE3072+T ,A 

6 hEXTtGOTOl 


TERREMOTO 

1 VOL 8 

2 FOR 1 *0TO300 

3 S0UND3 ,1,3 

4 hEXT s GOTO 1 


NOME SO MORO 

1 INPUT "NOME '?2$ 

2 PRINT*^* : YOLS 

3 FORT =0TO22 

4 SOUND 2,810,3t 

5 CHAR , 12 ,T ,Z$ 

G reXT 


GRAF I CO 


1 GRAPH IC1 , 1 

2 FORG=60TO0STE:P-10 

3 D IRCLE, 140, 100, 80, G 

4 CIRCLE, 140, 100, G, 60 
3 NEXT 
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Offrì agli amici 
un poster-calendario 


di Nemo Galletti 


Tra breve Inizierà un nuovo anno e 
Commodore vi propone un programma 
per generare, servendovi dì una stam- 
pante MPS801, Q02 o 603. un calenda- 
rio di grandi dimensioni, per voi o da 
utilizzare come regalo "informatico". 

Si tratta di un calendario di tipo "olan- 
dese 11 , di quelli cioè su cui è possibile 
scrivere annotazioni accanto ai giorni 
della settimana. Ogni mese ha la sua 
pagina, per cui h considerata quella di 
intestazione, il tutto d occuperà 13 
pagine, 

E' possibile stampare un calendario 
per qualsiasi anno, a partire dall anno 0 
fino ad arrivare al 9999. Per poter effet- 
tuare ciò, l'algoritmo deve tenere conto 
dì numerosi fattori di correzione, dato 
che la rotazione terrestre combina qual- 
che "pasticcio" e anche la normale cor- 
rezione data dagli anni bisestili non è 
sufficiente a regolarizzare la situazione: 
un anno infatti non dura esattamente 
365 giorni e un quarto, ma circa 365 
giorni e un quarto, meno 3/400 dì giorno. 

Fortunatamente papa Gregorio XIII 
nef 1 582 ci venne In aiuto decretando, 
oltre alla sistemazione della data (facen- 
do invecchiare i suoi sudditi di 10 giorni 
neirarco di 24 ore) che, ogni 400 anni, 
tre degli anni che avrebbero dovuto es- 
sere bisestili non lo fossero. Questi anni 
"anomali 1 ' sono costituiti dal primo anno 
del secolo in cui il numero delle centi- 
naia non è divisìbile per quattro: ad 
esempio 1700, 1800, 1900, ma non 


2000; 21 00* 2200, 2300, ma non 2400. 

Tutto a posto? No, anche papa Gre- 
gorio non ha sistemato le cose a! 100%. 
Ogni 5000 anni infatti et ritroviamo sfa- 
sati dì un giorno. 

A modificare questo programma in tal 
senso provvederanno r posteri tra un 
paio di migliaia di anni. 

Per tornare a tempi e interessi più vici- 
ni a noi. ecco una breve descrizione del- 
le caratteristiche dell'output. 

La pagina di intestazione presenta il 
numero corrispondente all'anno scritto 
in caratteri giganti e centrata rispetto ai 
margini: ogni cifra occupa ben 20x18 
caratteri. 

Tre righe sotto Tanno troviamo, se 
avremo risposto affermativamente alla 
richiesta di introduzione prima della 
stampa, un messaggio augurale della 
lunghezza massima dì 78 caratteri. 

Durante Tanno, poi, è possibile stam- 
pare fino a 20 messaggi particolari ac- 
canto ad altrettanti giorni, impostati pri- 
ma della stampa, ciascuno della lun- 
ghezza massima di 22 caratteri. Durante 
l'esecuzione, se nef mese in corso dt 
stampa sono presenti uno o più di questi 
messaggi, verranno cercati e stampati al 
posto giusto. E' possibile utilizzare fogli 
singoli oppure un modulo continuo, ri- 
spondendo a una apposita richiesta 
iniziale. 

Abbiamo cercato di "universalizzare" 
il programma il più possibile. Sarà co- 
munque necessaria una stampante 


Commodore. È' previsto l'uso di fogli 
singoli o di modulo continuo; in quest'ul- 
timo caso occorre Imposi are la lunghez- 
za della pagina che, per default, viene 
proposta di 66 righe, secondo gli stan- 
dard correnti 

La linea di programma numero 1 930 è 
stata introdotta per stampare, sopra 
ogni mese* Tanno in corso a caratteri 
giganti, ma può essere utilizzata anche 
per introdurre disegni definiti da voi. A 
titolo dt esempio, a partire dalla linea 
3500* è presente una routine che stam- 
pa fa figura di una candela, utilizzabile 
per il mese dì dicembre; ciò a dimostra- 
zione che, spesso, con i caratteri grafici 
della tastiera è possibile produrre ottimi 
disegni, senza ricorrere all'alta risolu- 
zione. 

La subroutine che stampa questo di- 
segno è necessariamente diversa a se- 
conda della stampante utilizzata, a cau- 
sa del differente modo di ottenere l'inter- 
linea “0" con la stampante MP3802: ì 
commenti nel listato vi guideranno alla 
scelta. 

Al termine verrà richiesto se stampare 
un altro calendario uguale, se apportare 
dei cambiamenti nei messaggi o nell'an- 
no, oppure se concludere il tutto. 

Il programma è utilizzabile da qualsia- 
si home computer Commodore. Nel VtC 
20 si vedrà un po' di confusione sul vì- 
deo creata dalla limitazione a 20 colon- 
ne. ma per if resto la stampa sarà ole. 
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1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1 100 
1 1 10 
1 120 


1 130 


1 135 

1 140 
1 150 

1 160 
1170 

1 180 
1 190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 

1380 

1430 

1480 


REM ********************* 

REM * * * 

REM *CALENDAR IO OLANDESE* 

REM * * 

REM * DI NEMO GALLETTI * 

REM * * * 

REM ******************** 

REM * COMMODORE 16 * 

REM *VIC 20 SOLO STAMPA* 

REM * COMMODORE 64 * 

REM * COMMODORE PLUS 4 * 

REM ******************** 

DIM 0SC6 ) ,DC 12) ,MSC 12 ) , MS (220 
) SREM GG. SET, MES 1 , NOMI MESI ,N 
UMERI GIGANTI 0-9 
DIM MESS<20) , NM ( 20 ) , NG ( 20 > 5 RE 
M MESSAGGI ! STRINGA, MESE, Gl ORN 
0 

DIM F I $< 30) s REM FIGURA CANOE 
LA#**** 

OPEN 2,4 

FOR 1 = 1 TD 12 : READ 
) shCXT 

FOR I ”0 TO 6: READ D$<I):NEXT 
REM ASSEGNAZIONI TEMPORANEE P 
ER CREAZ, NUMERI GIGANTI 
MESSC 0 1 ) - " ********** " 

MESS(02>= fl ************ « 

MESSC03)=" ************** " 

MESSC 04 ) = " **** **** " 

MESS(05)*“ **** 0 

MESSC 06 ) * 11 ♦ ******** 

MESSC07 ) = “ ******** 

MESSC 08 ) =* ************ 

MESS<093=" ************* 

MESSC 10)= B **** " 

MEStni)-" ************ " 

MESSC 12 ) = " ************* u 

MESSC 13)-“ **** 

MESSC 14 > = ” *********** « 

MESSC 15 > = “ ********** 

MESSC 16)-" **** **** ■ 

MESSC 17)-“ **** 

MESSC 18 ) = “ ******** ■ 

REM CREAZ - NU^R I G I GANT I 
FOR 3 - 1 TO 200: READ A:NSU)=ME 
SSCA) :NEXT 

AUGS= tì, :FOR 1=0 TO 20:I*ES$(I> = 
* “ s NG C I) -0 : M4C I ) =0 : NEXT 
P2S=CHRS( 14 ) ! P3S-CHRSC 15) 

B39S” " 


1490 

1500 

1510 

1520 

1536 

1540 

1550 

1560 

1570 

1572 

1574 

1576 

1577 

1578 

1579 

1580 

1590 

1600 

1610 

1620 

1630 

1650 

1660 

1670 
1 080 
1690 


L 1 NEAS= * \ 

m 


1 


LiCrit*n»“ ■ 

1 

1 « 


1 

1 

L. JlNE, n -v - 


II 


1 


LiHrltn-P — 


1 1 




LDINfcrl^- 

f 

H 






■ 



1 

LéDìnc. 


II 

L8NEAS= “ 




■ n : REM V IDEO 

i Qklir 11 

1 

[ * i__ il v 1 1— ■ u 



_j 11 : REM VIDEO 

PRINT 1 [CLEAR] 

■" f\ E— Il V 1 M I*-r W 

TAB< IA ) "C ALENO 


AR IO" 

UiA=0 s PR IMT: PR I NT "MODULO CONTIN 
UO 0 FOGLI SINGOLI? (C/S)“;GOS 
UB 2750 

GET AS:IF ASO"C" AND ASO“S" 
THEN 1576 

IF AS= "3 " THEN UJA-lsGOTO 1580 
PRINT TAB (26)66= INPUT "CUPILUN 
GHEZZA PAGINA (RIGHE) i VRGH 
IF RGH<66 THEN RGH=66 
PRINT" CCLEAR 3 CDOWN3 INTRODURRE 
ANNO DI CUI SI DESIDERA IL CAL 
ENDARIO (MAX 4 CIFRE) >“ 

R I =02 : CO -66 : F I -4 = GOSUB 2620 
AN=1NTCVAL(BS> ) : IF AN<0 THEN 1 
580 

IF AN/40I NT (AN/4) THEN 1650:R 
EM NON BISESTILE 
D<2)=29: IF AN/100C > INTC AN/100) 
THEN 1 650 : REM INIZIO SECOLO 
IF AN/400C >INT CAM/400) THEN DC 
2 ) =28 : REM * ANNO BISESTILE ANQM 
ALO 

PR I NT 11 [ CLEAR 3 ANNO «ì A N = PR I NT : PR 
INT* t DONNI INTRODURRE hESSAGGIO 
AUGURALE INIZIALE,- 
PRrNT n SE DESI DERATO (MAX 78 CAR 
AT> " 

RI-6=C0=1 =FI =78: GOSUB 2620 
AUGS=BS 

PRINT: PRIMI" JDQUJN3VUOI SCRIVER 
E DEI MESSAGGI IN GIORNI PARTI 
COLAR!? (S/N) 11 
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1 700 GOSUB 2750 

1710 GET A$: IF ASO"N" AND ASO’S" 
THEN 1710 

1720 1F A*="N“ THEN 1750 
1740 GOSUB 2830 

1750 FOR 1 = 1 TO 4 : A < I > =200 ! NEXT 
1 7G0 A$=STR$<AN) 

1770 FOR 1=2 TO LEN< A* > i BS=MID$< A* 

, 1 . 1 ) 

1780 fUM >=VAL<B$)*20:FEXT 
1790 Y=40-<LEN<STR*CAN>>-1 )*9:A1$=* 
" : FOR 1=1 TO Y!Al*=Al*+“ ":NEX 
T 

1800 REM ********************** 

1801 REM «STAMPA INTESTAZ IONE * 

1802 REM ********************** 
1840 FOR Ul=l TO 22 :PRINT#2 , " * ! IF W= 

3 THEN PRINTtf 2, "PROGRAM BY NEG 
84 " 

1850 NEXT 

I960 FOR 1=1 TO 20:CS=A1S!FOR J=1 T 
0 4:CS=C$+N$<A<J>+I )iNEXTJ:PRI 
WT#2,CS:NEXTI 

1870 FOR W= 1 TO <RGH-44):PRINT#2: IF 
M=5 THEN PRINT#2,AUGS 
1880 NEXTW 

1890 IF WA THEN GOSUB 2780: REM ATT 
ESA CAMBIO FOGLIO 
1S00 REM ************** 

1801 REM * STAMPA MES * 

1902 REM ************** 

1810 FOR 1=1 TO 12:H=0:G=0:E=0:F=0 
!K=0:X=0 

1920 FOR W=1 TO 3 : PR I NT#2 : NEXT 
1925 REM LA RIGA 1930 STAMPA LE FI 
GURE SOPRA OGNI MESE, DA 1 A12 
1930 ON I GOSUB 3500,3400,3400,3400, 
3400,3400,3400 ,3400,3400,3400 , 
3400,3400 

1940 FOR Lt= 1 TO 4 :PRINTt»2:NEXT 
1950 PRIMT»2,P2*;M*( I ) ; AN?P3$:PR INT 
#2 

I960 PRINT MS C I ) : PR INT L8NEA$:REM 
VIOEO 

1970 CQL= INT (DCI )/2+ .5) 

1980 IF D < I ) =3 1 OR DCI) =29 THEN 
H=i 

1990 FOR UJ=1 TO ZK:IF NW<W>=I THEN 
X = 1 

2000 FEXT 

2010 FOR SO=l TO COL-H 

2020 IF SO=l THEN PR 1NT#2 ,L5NEAS; 


L6NEA»; ! GOTO 2040 
2030 PR1NT#2,L1NEA$;L2NEA*; 

2040 M* I s A 1=AN: IF M<=2 THEN M=M* 
ia:AI=Al-I 

2050 G=S0+2*M+ INT < .6* (M+ 1 >) +A1 + INT< 
A 1 /4 ) - 1 NT (fìl/100)+I NT < A 1 /4 00 > 
2060 G=INTC CG/7-INTCG/7 ))*?♦. 5) 

2070 G2=G+C0L- INT < <G+C0L>/7) *7 
2080 IF X*0 THEN 2140 
2090 E=0tF=0:FGR W= 1 TO ZK 
2100 IF NM(l-J) < > I THEN 2130 
2110 IF NG<ld)=SQ THEN E=W 
2120 IF NG<W)=SQ+CQL THEN F=W 
2! 30 NEXT 
2140 GOSUB 2470 
2150 PR IMT#2 ,BUFSJ 

2160 PRINT " | *;SQ;DS<G)S TAB(20)“I" 
;SQ+C0LJDS<G2)J TAB<38> " I ’ :REM 
VIDEO 
2170 NEXT SQ 

2180 IF HOl THEN 2290 
2190 G =COL +2 *M+ 1 NT ( .6*<M+I))+A1+INT 
<Al/4) - INT (A 1/1 00) + INT(Al/400) 
2200 PRINT»2,L1NEAS;L2NEAS; 

2210 G= INTC <6/7- INTCG/7 ) ) *7+ , 5 ) 

2220 IF X=0 THEN 2260 
2230 K=0:FOR W=1 TO ZK 
2240 IF NM(W)=I THEN IF NG<U)=COL T 
HEN K=W 
2250 NEXTW 
2260 GOSUB 2550 
2270 PRINT»2,BUFS; 

2280 PRINT * |" fCOL;D$<G>? TAB<20)"I 
■; TAB<38) * | * :REM VIDEO 
2290 PRINT#2,L3NEA$,*L4NEA*J 
2300 FOR W=0 TO <RGH-62+< 16-COL )*2) 
:PRINT«2 : NEXT: REM FINE PAG 
2310 PRINT L9NEA$:REM VIDEO 
2320 IF WA THEN GOSUB 2780: REM ATT 
ESA CAMBIO FOGLIO 
2330 NEXT I 

2340 REM 

2341 REM * OPZ IONI FINALI * 

2342 REM ****************** 

2350 PRINT * [CLEAR SPREMERE NUMERO C 
ORR I SPOND . ALLE OPZIONI" 

2360 PR I NT : PRI NT *1 -STAMPA UN ' ALTRA 
COPIA UGUALE" 

2370 PRI NT "2 -C AMBI AMENTO MESSAGGI" 
2380 PRI NT "3 -CAMBI AMENTO ANNO E MES 
. SAGGI" 

2390 PRI NT "4 -FIFE PROGRAMMA" 
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2400 
24 10 

2430 

2440 

£450 

2460 

2470 

£47! 

2472 

2473 
2480 

24S0 

2500 

2510 

2520 

2530 

2540 

2550 

2551 

2552 

2553 
2560 

2570 

2580 

2590 

2600 

2610 

2628 

£621 

2622 

2623 

2630 

2840 

2650 

2660 

2670 


2680 

2690 


GOSUB 2750 

GEI RSS IF A$< “ 1 " OR A$>"4 ,t TH 
EN 2410 

QN VAL CAS) GOTO 1800,1650,1580 
,2440 

PR INT#2 , 11 ’ 

CLOSE 2 
END 

REM ***** ************** 

REM *COSTRUZIOTsE LINEA* 

REM * DI STANFA 

REM ****************** * 

SQ*=STRSCSQ)5IF LENCSQS)=2 TH 
EN SG$- " " +SQ$ 

BUF$“" | P +SQ£+" "+DS(G>* R "+NES 


£CE) 

LE-LEN(BUF*> *FOR A4 =LE TO 39 
SBUF*=BUF$+“ " ! NEXT 
BUF*=BUF£+" r +STRSCSQ+COL> + “ " 
+D£( G2 ) + * " +MESÌCF ) 
LE=LEN<BUF$):FOR A4 =LE TO 78 
$BUF$=BUF£* S * : NEXT 
BUF£=BUF£+ n | w 
RETURN 


REM 

REM 

REM 

REM 


******** 
costruzione LINEA 
DI STAhPA 


BUF$“ " r+STR$CCOL) + ,t "♦D^G)**’ 


"+MES*'K> 
LE=LEN<BUF*> tFOR 

II 

r 

m 

TO 

39 

: BUF£=BUF£+ " ":NCXT 



BUF*=BUF*+" |* 
LE=LEN<BUF*) :FDR 

fl4=LE 

TO 

7B 


; BUF$=BUF£+ " * : NEXT 
BUF$=BUF$+ “ |* 

RETURN 

REM **************** 

REM * IWTRODUZ IONE * 

REM * MESSAGGI * 

REM **************** 

GOSUB 3100 

GOSUB 2750 

GET A$:iF A*-"" THEN 2650 
IF AS-CHRS <20) THEN IF LEN<BS) 
=0 THEN 2720 

IF A$=CHR$C20) THEN B£-LEFT£CB 
£,LEN(B£> ~ 1 > : PR INT" CLEFT1 . H r :G 
OTO 2720 

IF A£=CHR£(64) THEN 2740 5 REM 
F IME INPUT 

IF A£*CHR£U3) THEN 2740: REM 


RETURN 

2700 JF A$<CHR$<32) OR A$>CHR£U27 > 
THEN 2720: REM TASTO NON CONS 


2710 

2720 

2730 

2740 

2750 

2751 

2752 
£753 
£760 
2770 

2780 

2781 

2782 

2783 
2790 

2800 

2816 

2820 

2830 

2831 

2832 

2833 
2840 

2850 

2880 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2350 


B£*B£+A£ 

GOSUB 3100:PRINTB$; 

IF LENCBS) < >F I THEN 2650 
RETURN 

REM ***************** 

REM * SVUOTA BUFFER * 

REM * TASTIERA * 

REM ***************** 

FOR 22” 1 TO 10: GET AS: NEXT 


RETURN 

REM ***************** 

REM t ATTESA CANBIO * 

REM * FOGLIO * 

REM ***************** 

FRI NT “CAMBIA FOGLIO E POI PREM 
I UN TASTO" 

GOSUB 2750 

GET A$:IF A$= ' " THEN 2810 
RETURN 

HHHHI 

PRIMI B [CLEARIPUOI INTRODURRE F 
INO A 20 MESSAGGI" 

PR INT: PR I NT "PER FINIRE PREMI 


(D * « 

FOR 1=1 TO 20 


R I =7 : CO =0 ì GOSUB 3100 

FOR UN 1 TO Ì5:PRINTB39£:NEXT 

R I =7 : CO=0 : GOSUB 3100 

PR I NT "NESS AGGIO MJNERO " ; I : PR 1 N 

T : P R I NT 

PRIMI" INPOSTARE NESE E GIORNO 
MMGG 


R I = 10 : CO =32 3 F I =4 : GOSUB £620 
IF A$=CHR$(64> THEN I =20 : GOTO 
3080 

IF LEN<B*><4 THEN 2870 

NM< I >=VAL<LEFT£IBS,2) XN6C I >=V 

AL <R I6HT£<B£,2 > > 


2960 IF NMCIXl OR NM(I) M£ THEN £8 
70 

2970 IF NGCIKI OR NGU)>31 THEN 28 
70 

2980 PR I NT : PR 1 NT :PRl NT" INPOSTARE ME 
SSAGGIQ, MAX 22 LETTERE" 
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2330 

3000 

30 J0 
3020 

3030 

3040 

3050 

3070 

3030 

3090 

3100 

3101 

3102 

3103 

3104 

31 10 
3120 

3130 

3140 

3145 

3146 
3 J 47 
3150 


3160 

3170 

3180 

3190 


PRINT" 

<* 

RI=13:CQ=2*FI =22 : GOSUB 2620 
MESS< I )=BS 

IF AS=CHRS(64 ) THEN ZK=i:I=20! 
GOTO 3080 

PR 1 NT : PR I NT SPRI NT "CONFERMI? CS 
/N) * 1 GOSUB 2750 
GEI AS: IF AS <>"N" AND A*0"S M 
THEN 3040 

IF AS=“N M THEN 2870 

ZK = I 

NEXTI 

RETURN 

REM *** * * * * * * * * ** 

REM t'PRlNT RT 1 -* 

REM t COMPATTI BILE 
REM * CBMXX » 

REM ************* 

PRIMT H [H0ME] ■ 

FOR 22 = 1 TO RI - I SPRINT" [DOWN] " 
; 5 NEXT 

PR INT TABCCO); 

RETURN: REM FlhESBR 
REM ******** 

REM * DATI * 

REM ******** 

DATA “GEhNA IO" ,31 , “FEBBRAIO" , 
28, "MARZO", 31 CAPRILE " ,30,"MAG 
G IO “ ,31 , “GIUGNO" 

DATA 30 , B LUGL 1 0 " , 3 1 , “ A60S TO 11 , 
3 I , “SETTEMBRE " ,30 , "OTTOBRE " ,3 1 
, “NOVENBRE * ,30 
DATA "DICEMBRE" ,31 
DATA "LUNED I 1 ", "MARTED I 1 

" , "MERCOLED I 1 ", “GIOVEDÌ 1 M ,“V 
ErCRDP 11 

DATA "SABATO ", “DOMENICA 


3200 REM DATI PER NUMERI (IN RIF.A 
STRINGHE TEMP - MESS) 

3210 DATA 1 ,2, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4 
,4, 4, 4, 3, 3, 2,1 

3220 DATA 5 ,6 ,6 ,6 ,6 ,5 ,5 ,5 ,5 ,5 ,5 ,5 ,5 
,5, 5,5, 7, 7, 7,7 

3230 DATA 8,9,3,3,10,10,10,11,12,3, 
9,0,13,13,13,13,3,3,12,1 1 
3240 DATA 8,9,3,3,10,10,10,14,15,15 
,14,10,10,10,10,10,3,3,9,8 
3250 DATA 13,13,13,13,13,13,13,13,1 
3,13, 16,16, 16,16,3,3,12,1 1,17, 
! 7 


3260 

3270 

3280 

3290 

3300 

3400 

3401 

3402 

3403 
3410 


3420 

3500 

3501 

3502 

3503 
3505 
3510 
3515 
3520 
3525 
3530 

3535 

3540 

3545 

3550 

3555 

3560 

3565 

3570 

3575 

3580 

3585 

35S0 


DATA 11,12,3,3,13,13,13,8,3,12 
,11,10,10,10,10,10,3,3,9,8 
DATA 11,12,3,3,13,13,13,8,9,3, 
3, 4,4, 4, 4, 4, 3, 3, 2,1 
DATA 8,8,8,8,17,17,17,18,18,18 
,18,17,17,17,17,17,17,17,17,17 
DATA 1 ,2, 3, 3, 4, 4, 4 ,3, 2, 2, 3, 4, 4 
,4, 4, 4/3, 3, 2/1 

DATA 1,2,3,3,4,4,4,3,3,12,11,1 
0, 10, 10,4,4,3,3,2, 1 


rem *ÀMtààtMààà£ 

REM mSUB STAMPA * 

REM *ANN0 GIGANTE* 

REM ***** ** * * ***** 

FOR W=I TO 20 E PR I NT#2 , NS CACI)* 
UJ>;NS(AC2) +y> ;mcA(3> 

4 > +W) s NEXT 
RETURN 

REM ************* 

REM *SUB STAMPA* 

REM * CANDELA * 

REM ***********'** 

F1$<0>=" IV" 

FIS(1>= M / V 

F1S<2>=“ / /* 

fì$< 3>=° i r 

F1S<4>=° \ I \ ° 

FtS<5)=" CRVSJ^CR 

VOFF ] I 11 /" 

F S$<6) = * CRVS3 1C 

RVOFF ] \/ “ 

F 1$( 7 > = " CRVSJ * 

CRVOFF 3 ) [RVS 3FCRVGFF ] H 
FÌS<8>-“ [RVSJ 

▼ CRVOFF 3 • 

F1SC9>=* [RVSl 

| CR VOFF 3“ 

F1SC10)=* CRVSJ 

• CRVOFF] • 

FISCI I > = * [RVS] 

| CRVOFF 3 " 

F1S(1£) = 11 IRVS J 


ftfl CRVOFF ] * 
F1S< 13 > = " 
l» IR VOFF] " 
F !$■< 14 > = ” 

* CRVOFF 3 " 
FiSC 1 5 ) = n 

CRVOFF] * 
F1S< 16 > = * 

CRVOFF] - 
FISCI?)** 


CRVS] 
C RVS3 
CRVS] 
CRVSJ 
[RVS] 
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[RVOFF ] " 


3595 

FlSC 18)“" 

[RVOFF 1V D 

\|/ tRVSJ 

3600 

F 1 $ C i 9 ) - 11 

W-[RVS]*[RVO 


FF) -rRVS] 

■ 

[RVOFF] t/ \/ / 

3605 

F 1 * ( 20 ) = " 

— [RVS] [RVOFF] 


[RVS] t RVOFF ] |\| [RVS] "t 

RVOFF ]-| CRVSJ [RVOFF ]~[RVS1 IR 
VOFF J \y// a 

3610 Fl$(2l>=" \IIRVS1 [RVOFF] l 

\|[RVS1 t RVOFF ]\[ RVSI I 

RVOFF! | [RVS] [RVOFF )/| IRVSJ 
t RVOFF ]-\“" 

3615 F 1*02)®* -/[RVS] [RVOFF]-! 

RVS] rRVS]-[RVSl [RVOFF ]-IRV 
S] [RVOFF )M/ [RVSJ IRVO 

FF 1— [RVS ] [RVOFF ]/\ “ 

3620 FI* (23) = " -/[RVSJ [RVOFF] — [R 
VS] [RVS]— [RVS 1 [RVOFF] -[RVS 
] [RVOFF ]\|/ [RVSJ IRVOF 

F ]— [RVS ] [RVOFF l/\ [RVS] [RVOF 
FIN/ /* 

3625 Fl*(24)=" -/[RVS] [RVOFF ]-[ 

RVS] [RVOFF ]-«U[ RVOFF] -[RVS] 

/ [RVOFF ]\|/ CRVS] [RVOFF 
]— [RVS] [RVOFF ]/\ * 

3630 Fl$(25>=* //IVRVS] [RVOFF 

]\[RVS ] [RVOFF ]\[RVS] [RVOFF] 
\[RVSJ [RVOFFJ /[RVS] I RVOFF 
] t [RVSJ [RVOFF J\£RVS J [RVOFF 3/ 
[RVS] [RVOFF ]/\ " 

3635 Fl*(26)=" / \*£RVS] [RVOFF 


] /[RVS ] [RVOFF J/IRVSJ [RVOFF ]- 
[RVS] 8 r RVOFF ]/[RVS 3 [RVOFF 1 
I [RVS J [RVOFF ]-| [RVS] IRVOF 
F] / * 

3540 Fl*<2?>=" — [RVSJ I 

RVOFF] /[RVS] [RVOFF ]\CRVS] [R 
V0FF1MRVS1 [RVOFF] I [RVS] [RV 
OFF ]\— \\ [RVS] [RVOFF ]\ - * 

3645 F 1 * ( 28 ) = " //[RVSI [RVOFF] 

[RVS] [RVOFF ]/\| [RVS ] [RVOF 

F ]— [RVS ] [RVOFF ]-//[ RVS] IR 

VOFF] /|\ " 

3650 Fl$(29)=" /l\ l/l I 1 

\ /I \ 

3655 F 1 4 ( 30 ) = " /I 

/ 

3660 FOR 14=0 TO 30 : PR INTF I$(l*J> : NEXT 
:REM VIDEO 

3669 REM TOGLIERE LE ISTRUZIONI 36 
70,3672,3674, 3676 SE SI POSSI 
EDE LA MPS801/3 

3670 OPEN 6 ,4 ,6 J PR INT#6 ,CHR$(22 ) ! GL 
OSE 6: REM MPS802 INTERLINEA = 
0 

3672 FOR UI=B TO 30 ! PR INTH2 ,CHR$ ( 14 > 
FI*(UI) iNEXTSREM 1*PS802 

3674 OPEN 10 ,4 , 10SPR INT8 10SCLOSE 10 
:REM 1-PS802 RESET INTERLINEA 

3676 RETURN 

3690 FOR 14=0 TO 30 i PR INTH2 ,CHR$( 15 ) 
;CHR*<14)F1$<W>;CHR*(8) iNEXTiP 
RINT#E,CHR$( 15) 

3699 RETURN 
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Come scrìvere 
un “libro elettronico 


di Maria Luigia Nitrì e Donato Mattuiro 


Per approfondire in termini pratici gli argomenti già affrontati 
teoricamente {ci riferiamo alla digressione sui Sistemi Autore), 
abbiamo pensato di proporre la costruzione di un'utility didatti* 
ca con EXLANA. Non sì tratta però di un vero e proprio 
Sistema Autore t ma di una sorta di “libro elettronico” utilizza- 
bile per fare un po“ di pratica con i 1 autoapprendimento. 

Gli abbiamo dato questo nome perchè manca di qualsiasi 
possibilità interattiva, essendo fruibile solo passivamente, Ri- 
sulta quindi privo di possibilità sul piano deli’ autoapprendi- 
mento “full immersion”, ma può diventare un discreto sussidio 
didattico (se prendiamo in considerazione te potenzialità at- 
trattive dell’ attenzione) e in seconda istanza un ottimale primo 
approccio in vista di future applicazioni di più complessa 
realizzazione. 

E' nostro intendimento infatti affrontare, prossimamente, la 
progettazione di un Sistema Autore che possa definirsi vera- 
mentiate 


Calcola e scrìvi 

Per stendere il programma in questione abbiamo utilizzato 
atcune potenzialità offerte dalla pagina di quaderno, non an- 
cora analizzate e su di esse abbiamo basato il nostro "libro 
elettronico”. Esaminiamole prima di addentrarci nell'esplora- 
zione del software. 

Da programma, cosi come in modo diretto, è possibile scri- 
vere nella pagina di quaderno in due modi, corrispondenti a 
due istruzioni: 

CALCOLA 

SCRIVI 

Entrambe svolgono la funzione del PRINT in BASIC, ma 
con decisive differenze. CALCOLA permette di stampare il 
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risultato di una espressione numerica o di una manipolazione 
di stringhe; SCRIVI permette-di visualizzare frasi o contenuti di 
variabili, 

Se vogliamo stampare il risultato di un'espressione numeri- 
ca, di una manipolazione di stringa oppure dr una funzione, 
dobbiamo semplicemente scrivere CALCOLA e dì seguito 
['espressione. Per esempio: 

CALCOLA A‘8+(A-12}+ Cf2 
CALCOLA CHR$(32)+B$ 

CALCOLA ASC(' 4 A") 

Se invece vogliamo scrivere una frase o il contenuto di una 
variabile, dobbiamo utilizzare l'istruzione SCRIVI stando at- 
tenti a fare un uso appropriato delle virgolette. Infatti, ai contra- 
rio del BASIC, qui le virgolette si utilizzano per Indicare che si 
tratta dì variabili: 

1 ) SCRIVI QUESTO E' UN MESSAGGIO 

2) SCRIVI U P&* 

3) SCRIVI "K rt 


L'Istruzione (1) visualizza la frase "questo è un messag- 
gio*', mentre Ja (2) e la (3) visualizzano rispettivamente il 
contenuto stringa di A$ e quello numerico dì A. 

Il non poter usare le virgolette neir istruzione SCRIVI inibi- 
sce fuso dei caratteri spedali, tanto preziosi nella gestione 
accurata del video: ci riferiamo ai vari caratteri per il contrailo 
del cursore, dei colori, eec,. 

A questa carenza però è possibile ovviare con alcuni accor- 
gimenti tecnici che passiamo in rassegna. 

Come visto sia nell'uso dell Istruzione VARIABILE (Com- 
modore a 14) che nella stessa istruzione CALCOLA, tutte le 
funzioni del BASIC sono utilizzabili in qualità di parametri. E" 
proprio una di queste funzioni la chiave del nostro "espedien- 
te"; ci riferiamo a CHRS. 

CHRS stampa il carattere corrispondente al codice ASCIf 
indicato come parametro della funzione stessa: 

CHR$(65) stampa la lettera A 
CHR$(13) stampa un ritorno a capo 
CHR$(147) pulisce II video 

Tutti ì caratteri della tastiera, compresi i vari tasti di controllo 
cursore, cancellazione carattere, sono rappresentati numeri- 
camente nel codice ASCII; se neevince che, utilizzando la 
funzione CHR$ nell'istruzione CALCOLA, è possibile stampa- 
re qualsiasi carattere di contrailo per la gestione "intelligente" 
del video- 

in virtù dì questa possibilità nascono poi altre modalità dì 
Intervento sullo schermo, fn particolare la possibilità di asse- 
gnare il risultato di una (unzione CHRS a una variabile stringa. 
Analizziamo ad esempio la sequenza dì istruzioni: 


1 00 VAR ABILE A$=CHR! ( 1 47) -hCHR$(5) +CHR${ 1 8) 

1 10 VARIABILE 8$=A$=" PROVA 11 
120 SCRIVI 

Nella riga 100 la variabile A$ assume il carattere dì SHIFT- 
CLR/HOME (147), il carattere di CTRL-WHT (5) e il carattere 
di CTRL-RVS/QN (18); la riga 110 provvede a concatenare 
questa sequenza di "controlli 1 ' dello schermo alla strìnga " 
prova ", assegnando il risultato a La stampa di B$ nella 
riga 120 produrrà la pulizia dello schermo (147), la stampa in 
bianco (S) e in reverse (18) delia stringa " prova ", 

in figura 1 riportiamo una tabella contenente i codici ASCII 
dei caratteri di controllo per una migliore comprensione del 
programma Libro elettronico. 


r t 

TABELLA CODICI ASCII 

PER GESTI Ohe SCHERMO 

COD. 

EFFETTO 

005 

CTRL/WHT 

j 014 

MINUSCOLE 

0 1 7 

CURSORE GIU 1 

018 

REVERSE ON 

| 019 

CLR/HOhE 

080 

IMS T/DEL 

088 

COL. ROSSO 

039 

CURSORE DESTRA 

030 

COL. VERDE 

031 

COL. BLU 

038 " 

SPAZIO 

148 

MAIUSCOLE 

144 

COL. NERO 

ì 45 

CURSORE SU 

146 

REVERSE OFF 

147 

SHIFT CLR/HOME 

14S 

SHIFT I NST/DEL 

156 

COL. VIOLA 

157 

CURSORE SIN. 

158 

COL. GIALLO 

159 

COL. AZZURRO 

FIGURA 1 
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Libro elettronico 

Scrivere un “libro elettronico” non è un'impresa complicata 
se possediamo uno strumento congegnato appositamente. M 
programma proposto vuole essere proprio un "tool" per la 
scrittura elettronica senza ambizioni di tipo interattivo che 
avrebbero inficiato un'adeguata comprensione delle procedu- 
re di cui è composto. 

fi programma vero e proprio risiede nelle righe 1-6 del listato 
e nelle righe 700-369; le righe 1 10-300 sono dedicate a una 
nostra applicazione dimostrativa sostituibile di volta in volta 
con applicazioni personali. 

L'analisi del procedimento verrà affrontata secondo un ap- 
proccio “bottom-up u (dal basso verso l'alto) nel senso che 
studieremo una dopo l'altra tutte ie routine che compongono 
l'applicazione risalendo verso il Main (programma principale) 
che le utilizza. 


Inizializzazione variabili 


Questa routine risiede nelle righe 970-989 e provvede al- 
rassegnazìone di valori stringa e CHR$ alle variabili che sa- 
ranno utilizzate in seguito per la gestione dello schermo. 

Le righe 970-977 assegnano codici dì controllo ad altrettan- 
te variabili secondo una corrispondenza rilevabile nella tabella 
ASCII di figura 1 e nella tabella qui di seguito; 


AS=CHR$(145) 

B$=CHR$(17) 

D$=CHR$(29) 

$S=CHR$(157) 

CS=CHR$(19) 

V$=CHR$(30) 

P$“CHRS(156) 

R$=CHRS(18) 

N$=CHR$(144) 


cursore in alto 
cursore in basso 
cursore a destra 
cursore a sinistra 
cursore a casa 
colore verde 
colore viola 
reverse oo 
colore nero 


Le righe 97B-989 iniziali zzano [e variabili che saranno utiliz- 
zate come linee di stampa nelle varie occasioni. La vanabile 
X$ stamperà in colore nero e reverse (R$+N$), sulla terza 
colonna f+D$+D$). 36 caratteri grafici corrispondenti al 
CHRS(222). Allo stesso modo la variabile J$ stamperà 24 
spazi in reverse e verde e la variabile YS 30 spazi in reverse e 
viola. Continuando. G$ (riga 987) imposterà II reverse t colore 
verde e sposterà il cursore di sette spazi cosi come OS farà 
l'identico lavoro con il colore nero. 

Questo sottoprogramma dovrà essere eseguito solo una 
volta airinizio del Main. 

Disegna la cornice 

La pagina testo di questo "libro elettronico" è stata imposta- 
ta sfruttando alcuni caratteri grafici (vedi figura 2); la procedu- 


ra in lìnea 900 imposta una cornice che rimarrà sempre fissa 
sulto schermo. Tale cornice è composta di tre righe differenti; 
la prima (riga 905) di apertura, la seconda ripetuta 21 volte 
(910 SOTTOPROGRAMMA 935:21) e la terza di chiusura 
(riga 915). 



FIGURA 2 

Finestra e blocchi colorati 

All’interno della cornice verrà disegnata dalla routine una 
finestra composta dal carattere grafico CHR$ (222) contenuto 
nella variabile X$ che viene stampata 21 volte, quando richia- 
miamo la routine 850: 

850 SOTTOPROGRAMMA 920; 1 

Il sottoprogramma chiamato (righe 920-930) provvede, co- 
me da listato, appunto alla stampa della variabile X$. 

La chiamata del sottoprogramma 850 provvede anche {riga 
855) al disegno dì due finestre colorate interne, (sono quelle 
adibite a contenere i testi) costruite dalla procedura che risie- 
de nelle righe 800-845. 

Main Program 

L’utilizzo corretto di queste routine ci permetterà di creare 
’ ‘pagine elettroniche” dì un certo effetto grafico nell 1 ambiente 
quaderno, da alternare a vìdeate nell'ambiente album, dove ìa 
coccinella può eseguire disegni. 

Le righe da 1 a 5 impostano quindi il lavoro pulendo il vìdeo 
nella pagina di quaderno e scrivendo la dicitura “attendi", per 
ovviare all'attesa necessaria all’ inizializzazione delle variabili; 
infatti la riga 4 esegue la chiamata del sottoprogramma depu- 
tato a questo lavoro. 

Infine la riga 5 imposta fa cornice che rimarrà sempre fìssa 
per tutte le “pagine" impostate. 
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Qualche pagina di prova 

Per meglio esemplificare l'utilizzo del programma, abbiamo 
scritto alcune (6) pagine di prova, che costituiscono l'inizio di 
una 'guida" elettronica al linguaggio E.LI.ANA. Sono quindi 
sìa un esemplo che uno spunto per un'introduzione completa 
nel mondo della coccinella. 

E‘ inutile passarle tutte in esame, poiché si ripetono nella 
struttura e cambiano solo nei contenuti; analizzeremo solo la 
pagina 5 (righe 2 1 4-241 

Ovviamente, fa prima istruzione da dare è la chiamata del 
sottoprogramma 800 che imposta le finestre. Compiuta que- 
st'operazione. si può procedere alfa scrittura nelfe finestre 
stesse. A questo proposito abbiamo creato fe procedure che 
risiedono nelle righe da 700 a 760: 

+ 1 1 SCRIVE RIGHE/ ALTO 
+2| SCRIVE BIG HE/BASSO 
+3| SALTA RIGH E/ALTO 
+4| SALTA RIGH E/BASSO 

Per "scrive righe/alto' ' si intende il sottoprogramma che 
provvede a scrivere righe nella finestra (1) di figura 2; è ovvio 
che in questa finestra si possono scrivere sofo 5 righe lunghe 
al massimo 22 caratteri ognuna, Il procedimento per utilizzar© 
questa routine di scrittura è il seguente: 

t . chiamare il sottoprogramma 700 per impostare il cursore; 

2 . inserire max 22 caratteri d i testo nel fa variabile K$; 

3. chiamar© il sottoprogramma 705 (in alternativa ai passi 2/3 
chiamare if sottoprogramma 740 per saltare una o più righe); 

4. ripetere i passi 2/3 5 volte. 

In questo caso riempiremo completamente la finestra; ma 
come fare per scriverne solo una parte? La routine "salta 
righe/afto’ ' assolve proprio questo compito, nel senso che può 
essere chiamata in alternativa ai passi 2/3 di cui sopra. Qge- 
sLullima, infatti, imposta K$= utl e chiama il sottoprogramma 
705. Se vogliamo saltare più righe, dobbiamo indicarlo ne! 
numero di ripetizioni delia chiamata sottoprogramma. 

Continuiamo con l'analisi della pagina 5. La riga 219 ese- 
gue Il passo 1, la lìnea 220 ripete 2 volte i passi 2/3 "saltando 
la riga", in 22 1 viene eseguito il passo 2 impostando K$-"tN- 
DIETRO" e in 222 si esegue il passo 3. Infine la chiamata in 
223 salta le altre 2 righe completando il ciclo di 5. 


In questo modo si assolve alla scrittura della finestra (1) e 
allo stesso modo si scrìveranno righe di testo nella finestra. 2 
utilizzando però differenti routine. Ci riferiamo alfe "scrive 
nghe/basso" e "salta righe/basso" che si utilizzano analoga- 
mente alle prime, ma con alcune differenze nel numero di 
caratteri e di righe che qui diventa 30*8: 

1 . chiamare il sottoprogramma 720 per impostare il cursore; 

2 . inserire max 30 caratteri di testo nefla variabile K$; 

3. chiamare la routine 725 (in alternativa ai passi 2/3 eh Sama- 
re il sottoprogramma 740 per saltare una o più righe); 

4. eseguire i passi 2/3 5 volte. 



FIGURA A 


Una volta visualizzato il tutto su QUADERNO, si può passa- 
re nella pagina di ALBUM per una esecuzione grafica con fa 
coccinella (nel nostro caso fa rappresentazione esecutiva del 
comando INDIETRO 20). Prima di abbandonar© la pagina dì 
QUADERNO bisogna dare, però, il tempo al fruitore di legger- 
ne il contenuto; la chiamata SOTTOPROGRAMMA in riga 236 
svolge esattamente questa funzione. Il sottoprogramma chia- 
mato non è altro che una istruzione TORNA; questo significa 
che non viene eseguita nessuna operazione, ma solo un ciclo 
di ritardo che procura cosi la pausa voluta. Il tempo di pausa è 
dato, chiaramente dal numero di ripetizioni (nel nostro caso 
00) indicate come secondo parametro nell 1 istruzione SOTTO- 
PROGRAMMA. 

Subito dopo il ciato di ritardo si entra in ALBUM (riga 237) e 
sì eseguono le istruzioni relative ai movimenti della coccinella 
(riga 238), Anche qui prima di tornare nel QUADERNO per la 
pagina seguente bisogna istituire un ciclo di ritardo (riga 239) 
onde permettere un'adeguata fruizione (riga 240), 

A questo punto H gioco è fatto, la produzione di testi elettro- 
nici è assicurata e, perchè no, anche il divertimento. Un po' di 
pratica con il codice ASCCI. un po' con la gestione dello 
schermo e il programma in questione potrà essere completa- 
mente modificato e migliorato.. speriamo! 
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LISTATO A 


LIBRO ELETTRONICO 


t QUADERNO 

2 CESTINO 

3 SCRIVI ATTENDI 

4 SOTTOPROGRRMMA 970; 1 

5 SGTTOPROGRAMMA 366;! 


PAGINA- 1 


US SOTTOPROGRRMMR 

115 SOTTOPROGRRMMR 

116 SOTTOPROGRRMMR 

117 VARIABILE K$= " 
CAMMINARE" 

118 SOTTOPROORAMMA 

119 SOTTOPROGRRMMR 

120 VARIABILE K^= H 
LI. ANA. " 

121 SOTTOPROGRRMMR 

122 SOTTOPROORAMMA 

123 SOTTOPROGRRMMR 

1 24 SOTTOPROGRAMMA 

125 VARIABILE K*= M 
MI PRESENTO' 1 

126 SOTTOPROGRRMMR 

127 SOTTOPROGRAMMR 

128 ALBUM 

129 AVANTI 20 


850 ;1 

700 ; 1 
740; 1 

IMPARIAMO A 


705; 1 
740; 1 
CON 


E. 


705:1 
740:3 
720; 1 
750 ; 1 

ADESSO 

725 ;1 
939; 40 


130 DESTRA 30 

131 AVANTI 20 

132 INDIETRO 40 

133 CESTINO 

134 SOTT ù PROGRAMMA 933; 40 


PAGIHfl-2 


135 QUADERNO 

136 SOTTOPROGRAMMA 

141 SOTTOPROGRAMMA 

142 SOTTOPROGRAMMA 

143 VARIABILE K*=" 

144 SOTTOPROGRAMMA 

145 SOTTOPROGRAMMR 

146 SOTTOPROGRAMMA 
157 SOTTOPROGRAMMA 
148 VARIABILE Kit-'* 

LA COCCINELLA" 
143 SOTTOPROGRAMMA 


850; 1 
700; 1 
740;2 

ALBUM 11 
705 ;1 
740:2 
720 : 1 
758 ; 1 

PER VEDERE 
725; 1 


150 


151 

152 

153 

154 

155 

156 

157 

158 

159 

160 


161 

163 

164 

165 

166 

167 

168 
163 

170 

171 

172 

173 

174 

175 

176 

177 
17 4 8 


179 

13© 

181 

182 


183 

191 

192 


VARIABILE BISOGNA SC 

RI VERE ALBUM E M 
SOTTOPROGRAMMA 725 ; 1 
VARIABILE K*=" PREMERE IL 
TASTO RETURN" 
SOTTOPROGRRMMR 725 ;1 
VARIABILE K$=" OPPURE DA 
PROGRAMMA CON" 
SOTTOPROGRRMMA 725; 1 
VARIABILE K$=" UN NUMERO 
DI RIGA E3. " 

SOTTOPROGRRMMA 725 ; 1 
VARIABILE K#5s " 100 R 

LBUM* # 

SOTTOPROGRAMMR 725; 1 
SOTTOPROGRAMMA 933:30 


PAGINR-3 

SOT TGPROGR AMM A 850 ; 1 
SOTTOPROGRRMMA 706:1 
SOTTOPROGRAMMR 740:2 
VARIABILE K$= " QUADERN 


0 M 

SOTTOPROGRAMMA 

SOTTOPROGRAMMA 

SOTTOPROGRRMMR 

SOTTOPROGRAMMA 

VARIABILE K*=" 

E NELLA PAGINA' 

SOTTOPROGRAMMA 

VARIABILE K$=" 

0 BISOGNA FRE-* 

SOTTOPROGRAMMA 

VARIABILE K$=" 

UN/STOP. rt 

SOTTOPROGRAMMA 

VARIABILE K$=" 

PROGRAMMA CON" 

SOTTOPROGRRMMR 

VARIABILE 

DI RIGA ES. 

SOTTOPROGRAMMA 

VARIABILE K$=" 

UADERNO' 1 

SOTTOPROORAMMA 

SOTTOPROORAMMA 


795; 1 
74©; 2 
720 ;i 
750 ; 1 

PER TORNAR 
725; 1 

DI QUADERN 

725 ;1 

IL TASTO R 

725; 1 
OPPURE DA 

725; 1 
UN NUMERO 


725 ; 1 


110 Q 


725 ;1 
383 ; SO 


PAGINA— 4 


SOTTOPROGRAMMR 850:1 
SOTTOPROGRAMMA 766 ;1 
SOTTOPROGRAMMA 740; 2 
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193 

134 

195 

136 

197 

138 

133 

200 

281 

202 

203 

204 

205 

206 

20 ? 

208 

203 

210 

211 

212 

213 


VARIABILE K* = ,f AVANTI ” 

SQTTOFEOGRAMMH 705; 1 
S 0 T TOPRO G R AMM A 748 : 2 
SOTTOPROGRAMMA 720; 1 
SOTTOPROGRAMMA 75©; 1 
VARIABILE K$=“ L'ISTRUZIO 
NE AVANTI MUOVE" 
SOTTOPROGRAMMA 725: 1 
VARIABILE K$=" 

LLA AVANTI 01“ 

SOTTOPROGRAMMA 725:1 
VARIABILE K$=" 
SOTTOPROGRAMMA 725; 1 
VARIABILE K$=" 

I 10" 

SOTTOPROGRAMMA 
VARIABILE Kt=" 

TI DI 19 PASSI " 


ALBUM 
CESTINO 
AVANTI 10 
SOTTOPROGF 
QUADERNO 


PAGI MA— 5 


214 SOTTOPROGRAMMA 

219 SOTTOPROGRAMMA 

220 SOTTOPROGRAMMA 

221 VARIABILE 
RO“ 

222 SOTTOPROGRAMMA 

223 SOTTOPROGRAMMA 

224 SOTTOPROGRAMMA 

225 SOTTOPROGRAMMA 

226 VARIABILE K$= 11 
NE INDIETRO MUG-" 

227 SOTTOPROGRAMMA 725; 1 

228 VARIABILE VE LA COCC 

I NELLA INDIETRO" 

229 SOTTOPROGRAMMA 725; 1 

230 VARIABILE K$=" DI N. PASS 
I" 

231 SOTTOPROGRAMMA 725:1 

232 VARIABILE 60 INDIE 

TRO 20“ 

233 SOTTOPROGRAMMA 725:1 

234 VARIABILE K$=" MUOVE INDI 
ETRO DI 20 PASSI 11 

235 SOTTOPROGRAMMA 725 si 


236 SOTTOPROGRAMMA 939; 38 

237 ALBUM 

238 INDIETRO 20 

239 SOTTOPROGRAMMA 989:8© 
241 QUADERNO 


PRGINR-6 


LA COCC INE 

242 

SOTTOPROGRAMMA 

850 ; 1 



244 

SOTTOPROGRAMMA 

700.: 1 


725; 1 

245 

SOTTOPROGRAMMA 

740:2 


N. PASSI 

246 

VARIABILE 

DESTRA 11 

725; 1 

247 

SOTTOPROGRAMMA 

705 : 1 


50 HVANT 

24S 

SOTTOPROGRAMMA 

740 ,:2 



249 

SOTTOPROGRAMMA 

720:1 


725; 1 

250 

SOTTOPROGRAMMA 

750 ; i 


MUOVE AVAN 

25 1 

VARIABILE K$=“L 

,'ISTRIJZIÙN 



E DESTRA FA RUG-“ 


725 ; 1 

252 

SOTTOPROGRAMMA 

725,sl 


339; 80 

253 

VARIABILE K$= M 

TARE LA 

CO 



COI NELLA DI H. " 



254 

SOTTOPROGRAMMA 

725 ;1 



255 

VARIABILE K$=" 

GRADI A 

□E 

989; 80 


STRft- ESEMPIO 




256 

SOTTOPROGRAMMA 

725 ;1 



257 

VARIABILE = “ 

70 DESTR 



A 90 11 




253 

SOTTOPROGRAMMA 

725; 1 


350 ; 1 

259 

VARIABILE 

RUOTA A 

DE 

700 ; 1 


STF:R DI 90 GRADI" 


740; 2 

260 

SOTTOPROGRAMMA 

725; 1 


INDI ET 

276 

SOTTOPROGRAMMA 

989; 30 



271 

ALBUM 



705 ;1 

272 

OESTRA 30 



740;2 

273 

SOTTOPROGRAMMA 

389 ;30 


720; 1 

28© 

QUADERNO 



750 ;1 

290 

CESTINO 



L'ISTRUZIO 

300 

FINE 




SCRIVE RIGHE/ALTO 


700 CALCOLA C*+B*+B*+B* 

701 TORNA 

705 VARIABILE KfecGS+K* 
710 SCRIVI "K$" 

715 TORNA 


SCRIVE RIGHE/BASSO 

720 CALCOLA BS+BS+BS 

721 TORNA 

725 VARIABILE KS=0*+K$ 
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730 LINEA 710 


SALTA RIGHE/RLTO 


740 VARIABILE KS= IMI 
745 SOTTOPROGRAMMA 705.; 1 
74S TORNA 


SALTA RÌGHE/BASSO 


750 VARIABILE K*="" 

755 SOTTOPROGRAMMA 725; 1 
760 TORNA 



BLOCCHI COLORRT I 


000 

CRLCOLR C$+B*+B#+B$ 

805 

SOTTOPROGRRMMH 

830; 

t 5 

810 

CRLCOLR 


815 

3GTT0PR0GRRMMR 

840.: 

& 

820 

TORNR 



83© 

SCRIVI "J* - 



835 

TORNR 



840. 3CR IVI" 7$ " 



845 

TORMA 




FINESTRA NERA 



850 

SOTTOPROGRRMMFÌ 

920; 

il 

855 

SOTTOPROGRRMMfì ; 

800 ; 

1 

860 

TORNR 




DISEGNO LR CORNICE 


>'0 SCRIVI "C$ " 

3o5 SCRIVI 3 

T 

910 SOTTOPROGRRMMfì 935 ;21 
915 SCRIVI l 

j 

917 TORNA 

920 CALCOLA C$+B$ 

925 SOTTOPROGRAMMA 945 ;21 
930 TORNA 
935 SCRIVI 3 

3 

940 TORNA 
945 SCRIVI "Xi" 

950 TORNA 


INIT , VARIABILI 


970 VARIABILE 

971 VARIABILE 

972 VARIABILE 

973 VARIABILE 

974 VARIABILE 

975 VARIABILE 

976 VARIABILE 

977 VARIABILE 
378 VARIABILE 

979 VARIABILE 

980 VARIABILE 


A*=CHRÌ : <145> 
B*=CHR$<17> 
D$=CHRSK29> 
S$=CHR$ <: 1 57 ’> 
C$=CHR$< 19> 
VT=CHRf ''30.' 1 
RiasCNR^ c; 1 56 > 
R£=CHRT<18> 
N$=CHRf< 1 44 > 

a$=r*+n$+ot+d* 

y,*=x-$+" 


ii 


931 VARIABILE J*=R$+V*«t-D*+Oì+ 
D$+D$+0$ 

985 VARIABILE V$=R$+N*+D$+D$+ 
D$+D$+D$ N 

987 VARIABILE G*=R$+VÌ+D$+D*+ 
D^+DT+D^+D^+D* 

988 VARIABILE D$sR*+N$+D$+D$+ 
D*+D$+D$+D$+D* 

9:39 TORNA 


Conversione e stampa 
dei programmi in Logo 

Per ovviare ainmpossibiirtà di stampare i programmi 
creati con E.L1.ANA, abbiamo pensato di proporre 
un'utility in BASIC che provvede alla conversione dei 
fìle/iogo in file testo leggibili da programmi di word 
processing, quali Easy Script, ece. 

Inoltre tale utility può listare su stampante i file così 
convertiti. L'utilizzo è semplicissimo; un menu iniziale 
informa sulle due possìbili opzioni; Stampa/ 
conversione. Si seleziona l'opzione scelta e si comuni- 
ca il nome del file da convertì re/stampare. 

E' necessario tenere presente che il file da stampare 
deve essere prima convertito. 


LISTATO B 

50 REM ************************ 


51 REM * * 

5 £ REM * CONVERTE E STAMPA * 

53 REM * I FILE DI E.LI.ANA. * 

54 REM * * 

55 REM ************************ 

56 REM ************************ 

57 REM * * 

58 REM * DI □ . MATTURRO * 
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59 REM * M.L.NITTI * 

60 REM * * 

61 REM ************************ 
69 t 

63 : 

80 PR INTCHRÌ < 14 ) i CHR*<8 > l " CCLEAR 1 
12 DOWN314 R 1 GHT 3C0NVERTE FILE 
/PRG E.LI.ANA." 

SI PR INT" [DOLIMI 15 RIGHI] IN FILE/T 
ESTO PER STREPA.' 

B5 INPUT “13 D0Lt'ME4 R I GHT] NOME F 
ILE'VJNF* 

86 PR INI" [DOWN] 14 RIGHT]U] CONVE 
RS IONE * 

87 PR I NT * I OOLN ] 1 4 R I GHT 3 E 2 1 STAMP 
A" 

88 PRINT" IOOLN1E4 RIGHT3E?]"; 

88 POKE 138,0 

30 SET BS:IF 8$="“ THEN 90 
91 IF B$< > " 1 " AMI B*< >"2" THEN 30 
se PRiNT-ce lefti*;b*; 

93 PRINT" E3 R I GHT ] ATTEND I * 

94 IF 8i= '£ ” THEN 3000 

95 NR$="IBIANC01 , ‘+I'F*+*,S,R‘ 

96 NS*=r-FS+" ,S,W" 

98 OPEN 15,8,15 

100 OPEN 3,8,3,I^$:G0SUB 1000! IF F 
L=1 THEN CLOSE 3! GOTO 2000 
10] OPEN 4,8,4 ,NS$ : 60SUB 1000! IF F 
L=1 THEN CLOSE 3,4: GOTO 8000 
102 INPUT#3,ft* 

110 UPUT#3,A*,B*: IF A9*=A* THEN 8 

10 

180 PRIWTA3UB*:A9$=A* 

188 T$=A*+B*iG0SU8 600 
184 PRINT«4,N$ 

140 GOTO 1 10 

310 PRINT#4 , *t* : CLOSE 3! CLOSE 4:E 
ND 

600 N$=" * :FOR H= 1 TO LEN<T$> 

610 X*aMID*<:T$,H, 1 > :a=asc<;x$) 

615 IF A >64 AND A<91 THEN N*=N* 
+CHR*<A+ 128) : GOTO 630 
620 N*=N*+X* 

630 I4EXT 
640 RETURN 

1000 FL*0 : INPUT#15,E$,E1$,EE*,E3* 
1010 IF VAL CES) <80 THEN RETURN 
1080 FL=l: RETURN 
8000 CLOSE 15 

8005 PR I NT " I CLE AR J [ 3 D0WNH7 RIGHT3 
tRVS 3ERRORE DISCO* 


8010 PRINT’PREMI UN TASTO' 

8080 POKE 198,0 

2030 SET HJ$: IF HJ*^"' THEN 2030 
2040 RUN 

3000 PRINT* CCLEARK3 00WN1E6 RIGHT] 
STAMPA FILE" 

3001 PR INT" [DOWN 3 E 6 RIGHT] [RVS 3VERV 
OFF 3 1 DEO/ [ R V5 3 S E R V OFF 1 TARANTE 

r?3*; 

3008 POKE 198,0 

3003 GET B*: IF B*="‘ THEN 3003 

3004 IF B*O n V AM> THEN 30 

03 

3005 PR IMT* [2 LEFT1VB* 

3006 PRINT SPRINT 
3010 NS$=NF$+",S,R" 

3015 OPEN 15,8,15 

3020 OPEN 3,8,3,NS$ ! GOSUB 1000: IF F 
L= 1 THEN CLOSE 3: GOTO 2080 
3085 IF B$=*S‘ THEN OPEN 4,4 
3030 INPUT#3,T$ 

3040 IF T*=*t" THEN 3100 
3050 PRINTT$:IF B*= n S* THEN PRINT#4 
,CHR*U7)JT* 

3060 GOTO 3038 

3100 IF B*=*S* THEN CLOSE 4 
3110 CLOSE 3, 15:END 


Gli autori di questa rubrica sono lieti di accogliere i 
suggerimenti dei lettori e di rìpo ridere a eventuali quesi- 
ti sui temi affrontati. 

Possono essere contattati presso la redazione d* 
Commodore - Viale Famagosta. 75 - 20142 Milano. 

Sempre presso la redazione di Commodore è dispo- 
nibile il Logo E. LI ANA, edito dalla Systems Editoriale 
in versione cassetta o disco. 
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Metti in onda la tua foto 


di G Bancaria More (lato I2AED Giuseppe Cameroni I2CAB 


Cercando di sfamare af massimo le no- 
stre conoscenze, abbiamo elaborato 
questo nuovo programma che offre ai 
possessori di C64 remozione di ricevere 
immagini, oltre che suoni, dal proprio 
radioricevitore. 

Cogliamo l'occasione per ringraziare 
quanti ci hanno contattato riguardo al 
programma per trasmissione in SS TV. 
apparso su Commodore det giugno 
scorso, che ha destato grande 
interesse. 

Il programma descritto qui di seguito 
permette la ricezione di immagini tra- 
smesse in canale audio (radio, telefono, 
etc,) secondo lo standard Slow Scan Te- 
leVisìon (SSTV), Desideriamo puntua- 
lizzare r eccezionalità del fatto che la vi- 
sualizzazione avviene senza l'impiego 
di alcuna interfaccia dedicata, 


Descrizione del programma 

Con le prime routine si inizia lizzano le 
aree di memoria relative af posiziona- 
mento colore, si esegue un dear delle 
locazioni che conterranno rìnformazio- 
ne dell'immagine. Si abilitano pagina 
grafica e modo multicolore, operazioni 
necessarie per visualizzare i diversi li- 
velli di grigio de irimmag ine. 

Come descritto nel nostro precedente 
articolo, remissione in SSTV è realizza- 
ta per modulazione in frequenza con 
questi parametri; 

1 200 Hz = impulsi di sincronismo; 
da 1500 Hz a 2300 Hz = valori di grigio 
dal nero al bianco. 

I sincronismi sono riconosciuti in base 
alla durata de! loro tono: 


5 millisecondi — sincronismo oriz- 
zontale; 

30 millisecondi = sincronismo verticale. 

Come facilmente intuibile, si rende 
necessario conoscere in ogni momento 
il valore della frequenza presentata al- 
l'Ingresso del computer, onde far ese- 
guire dallo stesso le operazioni relative 
alla formazione dell 'immagine; colorare 
un punto, provocare un riposizionamen- 
to orizzontale o verticale, per esempio, 
dipendono dalla nota in ingresso. 

Questa operazione di campionamen- 
to della frequenza dì input deve essere 
eseguita in tempi brevissimi. Può essere 
ottenuta manipolando, o meglio riscrì- 
vendo, la routine della NMI (Non Maska- 
ble Interrupt) la cut allocazione usuale è 
a partire da $Fe47 e che noi modifichia- 
mo per una nuova allocazione spostan- 
do i puntatori ad essa relativi posti in 
$0318 per l'LSB ed in $0319 per il MSB 

La CPU del Commodore 64 deve 
svolgere molti compiti contemporanei 
che, pur richiedendo tempi infinitesimali, 
la distraggono in continuazione causan- 
do buchi di lettura, Per ovviare a questo 
inconveniente è necessario concentrare 
l'attenzione della CPU; questa funzione 
è svolta dal tasto F7. impiegato per to- 


gliere e ripristinare fe interrupt di video 
(bit 4 locazione $D01 1 ) permettendo ri- 
cezioni eccezionali. 

Se il volume viene tenuto tanto alto da 
saturare la porta di ingresso, il nostro 
programma riceve senza interfaccia. 
Basta portare l'uscita audio (cuffia) del 
vostro ricevitore o registratore alla user 
pori pin B del 064. 

Vi suggeriamo comunque di realizza- 
re uno di questi semplicissimi circuiti 
che. tra V altro, satvagu arderanno la sa- 
lute dell'Integrato di ingresso del C64 

Ai più frettolosi proponiamo di seguire 

10 schema A, che costringerà a tenere il 
volume del ricevitore a un livello molto 
alto. 

Il circuito dello schema B. alimentato 
direttamente dal C64, permetterti tenere 

11 volume a un livello più basso e garanti- 
sce ottimi risultati. 

Certi di fare cosa gradita, abbiamo 
posto in un unico programma sia la tra- 
smissione che la ricezione della SSTV, 
rendendo questo tipo di comunicazione 
immediatamente e completamente di- 
sponibile agli utenti di C64. 

Chi desiderasse questa nostra realiz- 
zalo ne, è pregato di contattarci tramite- 
la rivista e con piacere invieremo, oltre al 
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programma stesso, una cassetta audio ne Ila gamma dei due metri in SSTV dal lo II programma è interamente in iin- 

con immagini 3STV che potrete vi sua- Space Shuttle durante le prossime mis- guaggio macchina. E' riportato qui in 
lizzare immediatamente, indipendente- sioni aventi a bordo astronauti rad ha- BASIC solo per facilitarne il caricamene 
mente dalla propagazione. malori. Le prime immagini dallo spazio lo. Una volta digitato, consigliamo di sai- 

Questo programma vi renderà tra l'al- sono state trasmesse, con risultati ecce- vario, verificarlo e al RUN la ricezione 
tro possibile la ricezione diretta delle im- lionati, durante la missione STS 51 -F SSTV sarà immediatamente disponi- 
magini ripreso dallo spazio e trasmesse dal 29 luglio al È agosto scorsi. bile. 


1000 REM 
ì 0 1 0 REM 
1020 REM 
1030 REM 
3040 REM 
1050 REM 
1060 REM 
1070 REM 
1080 REM 
AED 
1090 REM 
I 100 .REM 
il 10 REM 
1120 REM 
AB 

1130 REM 
1140 REM 
il 50 REM 
1 160 REM 
1170 REM 
V) 


********* ****** ********** 

RICEZIONE SSTV 
CON COMMODORE 64 
REALIZZATO DA 
Gl ANDARLA MQRELLATO 12 

CONSULENZA TECNICA 
GIUSEPPE CAMERONI I2C 

VIA D* CHIESA 26 
£7029 VIGEVANO <F 


1180 REM 

1130 REM ************************* 
1200 : 

1210 : 

1230 PR 3 NT H OLEARI* 

1240 PRINT TAB< 12) n IR VS 3 ATTENDERE P 
REGO" SPRINT SPRINT 


1250 PRINT TAB <6 > " IRVS3 ALLO SCURIRS 
I DELLO SCHERMO w SPRINT 
1260 PRINT TAB<3) * [RVS1LA RICEZIONE 
SSTV SARA r IN ATTO" 

1270 REM CARICAMENTO DATA 
1280 1 

1290 POR I * 32768 TO 33285: READ 
AJPOKE I,AirsEXT 
1300 POKE 53280,0: PQKE 53281,0 
1310 PRINT" [OLEARI" 

1320 PRINT TAB <9 > " C RVS IR ICEZ IONE SS 
TV IN ATTO 1 * 

1330 FOR 1=1 TO 10000 
1340 SYS32768 
1350 : 

1360 DATA 120,160,000,132,158,169,0 
96,133,159,169 

1370 DATA 000 , 145,158 ,200 ,208,251 ,2 
30,159,166,159 

1380 DATA 224,128,144,243,160,000,1 
32,158,169,004 

1390 DATA 133,159,169,001,145,158,2 
00,208,251,230 

1400 DATA 153,166,159,224,008,144,2 
43,160,000,132 

1410 DATA 158,169,216,133,159,169,0 
01,145,153,200 

1420 DATA 208 ,25 1,230, 159, 166, 159, 2 
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24,220, 144,243 

1430 DATA 088,160,000,132,158,169,0 
.96,133,159,141 

1440 DATA 033,203,169,080,133,159,1 
69,188,145, 158 

1450 DATA 200,208,251,230,159,166,1 
59,224,095, 144 

1460 DATA 243,169,241,141,134,002,1 

73.000. 221.073 

1470 DATA 001,141,000,221,173,017,2 
08,073,032,141 

1480 DATA 017,208,173,022,208,073,0 

16.141.022.208 

1490 DATA 169 f 072, 141 ,024,208, 189,0 

36.141.024.003 

1500 DATA 169,129,141,025,003,169,1 

27.141.013.221 

1510 DATA 169,101,133,159,169,080,1 
33,158,169, 152 

1520 DATA 141,015,221,141,006,221,1 
69,003,141,007 

1530 DATA 221,169,000,133,003,168,1 

45. 158.169.255 

1540 DATA 141,004,221,141,005,221,1 
73,013,221,169 

1550 DATA 153, 141 ,014,221 ,169,14?; 1 
41,013,221 ,088 

1560 DATA 032,228,255,240,251,201,1 
36,208,01 1 , 173 

1570 DATA 017,208,073,016,141,017,2 
08,076,199,128 

1580 DATA 072,173,000,221,073,001,1 

41.000. 221.173 

1590 DATA 017,208,073,032,141,017,2 

08.173.022.208 

1600 DATA 073,016,141,022,208,169,0 

21.141.024.208 

1610 DATA 169, 001*141, 134, 002, 169,0 

71.141.024.003 

1620 DATA 169,254,141,025,003,169,1 

42.032.210.255 

1630 DATA 173,017,208,009,016,141,0 
17,208,169,065 

1640 DATA 032,210,255,088,104,104,1 
04,104,234,234 

1650 DATA 120,096,072,138,072,152,0 

72.172.013.221 

1660 DATA 169,127,141,013,221,186,2 
£4,064,176,006 

1670 DATA 162,250,154,076,178,128,1 
52,041, 129,201 

1680 DATA 129,240,243,152,041,145,2 


01,144,208,039 

1690 DATA 162,008,142,015,221,173,0 
07,221,133,077 

1700 DATA 173,006,221,070,077,106,0 
70,077,106,174 

1710 DATA 005 ,221,134 ,077 , 162,025 , 1 

42.015.221.162 

1720 DATA 003 ,221,246,129, 176, 013, 2 
02,016,248,230 

1730 DATA 003,169,025,141,014,221,0 
76,235,129,165 

1740 DATA 077,073,255,074,133,077,0 
74,024,101 ,077 

1750 DATA 134,077,072,041,248,168,1 

04,106,041,003 

1760 DATA 073,003,170,165,077,024,2 
02,048,004,010 

1770 DATA 010,144,249,072,166,003,2 
24,018, 176,035 

1780 DATA 224,004,144,048,230,158,2 
08,004,230,159 

1790 DATA 048,023,165,158,041,007,2 

08.025.165.158 

1800 DATA 024,105,056,133,158,165,1 
59,105,001,133 

1810 DATA 159,201,126,144,008,162,1 

01.134.159.162 

1820 DATA 080,134,158,169,000,132,0 

77.168.145.158 

1830 DATA 164,077,104,192,184,176,0 
0 4,017,158,145 

1840 DATA 158,152,105,008,168,169,0 
00, 133,003,145 

1850 DATA 158,169,147,141,013,221,1 
04,168,104,170 

1860 DATA 104,064,052,085,106,123,0 
00,075,160,105 

1870 DATA 105,095,078,085,073,074,3 
81,032 
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ASSEM* 


PAGE 0001 




LINE# 

LOC 

CODE 

LIFE 


0000 1 

0000 



ì 



00002 

0000 



r 



00003 

0000 



f 

# 

R ICEZ I OHE DELLE EMISSIONI IN 


00004 

0000 



* 



00005 

0000 



* 

3LDW SCAN TELEVIS10N 


00006 

0000 






00007 

0000 



; 

CON COMMODORE 64 


00003 

0000 



t 



00009 

0000 



% 



00010 

0000 



i 

ROUTINES DISASSENBLATE 


000 1 1 

0000 



m 

JF 



00012 

0000 



; 



00013 

0000 



r 

PROGRAM*» REALIZZATO DA 


00014 

0000 



1 



00015 

0000 



m 

1 

Gl ANDARLA MORELLA TO Ì2AED 


00016 

0000 



« 

r 



00017 

0000 



i 

CONSULENZA TECNICA 


00013 

0000 



m 



00019 

0000 



; 

GIUSEPPE CANERONI ISCAB 


00020 

0000 



• 

r 



00021 

0000 






00022 

0000 



* 

# 



00023 

0008 






00024 

0000 






00025 

0000 




*=$8000 JORIGINE $8000 


00026 

8000 



■ 

r 



00027 

8000 



* 



00028 

8000 



t 

RIEMPIO LA MEMDRIA RELATIVA ALL* 


00029 

8000 



■ 

# 

irtiAGAZ INA MENTO DEL VIDEO DI '00 1 CON LO 


00030 

8000 



$ 

SCOPO DI CANCELLARE LMM4AGlfv£ IN 


60031 

8000 



• 

* 

PRECEDENZA VISUALIZZATA 


00032 

8008 



* 



00033 

8000 

70 


START SEI ; 0 ISSO. ITO INTERRUZIONI 


00034 

3001 

m 

00 


LDY ##00 f LSB INIZ IO CAR ICANENTO 


00035 

8003 

Q4 

SE 


STY «E 


00036 

3005 

A3 

60 


LDA ##60 J MSB FINE CAR ICANENTO 


00037 

8007 

85 

9F 


STA *9F 


00038 

8009 

A3 

00 


UBA ##00 ; FONDO FERO 


00039 

8008 

31 

9E 

TV0 STA C$9E>„Y 


00040 

800D 

C8 



INY 


00041 

800E 

00 

re 


BNE TV0 


00042 

8010 

E6 

9F 


INC #9F 


00043 

8012 

A6 

9F 


LDX *9F 


00044 

8014 

E0 

80 


CPX #«80 ì MSB FIFE CAR ICANENTO 


00045 

8016 

30 

F3 


BCC TV0 


00046 

8018 



# 



00047 

801 e 



* 

r 

CARICO NELLE LOCAZIONI VIDEO 


00048 

8018 



m 

1 

#0400 - 07FF IL VALORE *01 


00049 

8018 



# 

CHE EQUIVALE IN CODICE SCHERMO 


00050 

3018 



* 

F 

ALLA LETTERA A 


00051 

8018 



1 



00852 

3018 

A0 

00 


LDY HS00 J LSB INIZIO CARICAMENTO 


00053 

80 I A 

04 

9E 


STY #9E 


00054 

80 1 C 

A9 

04 


LO A #*04 ;msb fine caricamento 


00055 

801E 

65 

9F 


STA *9F 
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LINE*» 

LOC 

CODE 

Lite 




00056 

8020 

A3 01 


LDA 

#$01 

; LETTERA ’A' IN COD SCHERNO 

00057 

8022 

31 SE 

TV0fì 

STA 

< «SE > , Y 

; CARI CAM INDIR IMDIC- 

00056 

6024 

C8 


INY 

* 


00059 

8025 

00 FB 


E3NE 

TV0A 


00080 

8027 

E6 9F 


INC 

«9F 


0006 1 

8029 

A 6 3F 


LDX 

«9F 


0006 2 

8028 

E0 88 


CPH 

H«08 

; NSB FINE CARICAMENTO 

00063 

8820 

30 F3 


BCC 

TV0A 


00064 

802F 


# 

f 




00065 

B02F 


» RIEfPJQ DI '01* = BIANCO LA MEMORIA COLORE 

00066 

802F 


;che 

VA DA 

«0900 A «OC00 

eaae? 

802F 


/ 




00068 

802F 


/ 




00069 

802F 

80 00 


LOY 

BS00 

;LSe INIZIO CARICAMENTO 

00070 

8031 

84 SE 


STY 

$3E 


0007 i 

3033 

AB D8 


LDA 

H«D8 

;MSB INIZIO CARICAMENTO 

00072 

8035 

85 9F 


STA 

«3F 


00073 

8037 

A9 01 


LDA 

««a i 

ì COLORE BIANCO 

00074 

8039 

91 9E 

TV0B 

STA 

<*9E>,Y 


00075 

303B 

cs 


INY 



00076 

8030 

D0 FB 


BfsE 

TV0B 


00077 

Q03E 

E6 9F 


INC 

«9F 


00078 

8040 

A6 9F 


LDX 

*9F 


00079 

8042 

E0 OC 


CPX 

K«DC 

; MSB FINE CARICAMENTO 

00080 

8044 

90 F3 


BCC 

TV0B 


00081 

8046 

58 


OLI 


; ABILITO INTERRUPT 

00882 

884? 


; 




00083 

8047 


/ 




00084 

8047 

A8 88 


LOY 

tt$00 


00085 

8043 

84 SE 


STY 

*9E 

/CARICA PER INDIRIZZAMENTO 

00006 

8048 


ì INDIRETTO 

INDICIZZATO 

S9E =BYTE BASSO 

0008? 

8048 

A3 80 


LDA 

MS60 


00000 

8040 

85 9F 


STA 

«9F 

/CARICA PER IDIRIZZAMENTO 

00089 

804F 


; INDIRETTO 

INDICIZZATO 

«9F a BYTE ALTO 

00030 

804 F 

80 21 00 


STA 

«002 1 

/COLORE 01 FONDO 

00091 

8052 

A3 50 


LDA 

H«50 


00032 

0054 

85 9F 


STA 

*3F 

1 CARICA HIGHT BYTE 

00093 

8036 

A9 SC 


LDB 

M*8C; COLORE FOWO 

00034 

8058 

91 3E 

TV 1 

STA 

(«9E ) ,Y 

;aa 

00095 

8058 

CB 


INY 


00096 

8050 

00 FB 


BNE 

TV 1 


00097 

3050 

E6 9F 


INC 

*9F 


00033 

005F 





/ 

00099 

S05F 





% 

00100 

805F 

AB 9F 


LDX 

«9F 


00101 

8061 

E8 5F 


CPX 

M«5F 

/CARICA FINO A «5400 

00 102 

8063 

90 F3 


BCC 

TV 1 


00103 

8065 

A3 FI 


LDA 

ttSFI 


00184 

8867 

80 86 02 


STA 

«0286 

/CODICE COLORE CARATTERE 

00105 

806A 





ì 

00106 

80ÉR 

AD 00 DO 


LDA 

«0000 


00 1 07 

8060 

43 01 


EOR 

tt«0i 

/COMPLEMENTO BIT 1 

00100 

806F 


«REGISTRO DATI PORTA A 


00109 

S06F 

SD 00 DO 


STA 

SDD00 


001 18 

8072 

AD 11 08 

* 

LDA 

«0011 

/REGISTRO CONTROLLO VIC 


Commodore -31 



ftSSEH* 


PAGE 0003 

- 


LINEA 

LOC 

CODE 


um 


00 Hi 

9075 

49 

20 


EOR ASSO 

J COMPLETE NTA BIT 5 

001 12 

8077 




; ABILITA BIT mP 


OO 1 13 

8077 

80 

1 1 

D0 

STA $D0 1 1 

SCARICA IL VALORE COMPLEMENTATO 

eoi 14 

807A 

AD 

16 

00 

LDA «0016 

; REGISTRO CONTROLLO VIC 

00115 

807D 

49 

10 


EOR I1S10 

JCOMPLEMENTA BIT 4 

001 18 

B07F 




r 


00117 

S07F 




; ABILITA MODO MULTICOLORE 

00118 

807F 




j 


00119 

807F 

OD 

18 

D0 

STA $0016 

; CARICA IL VALORE COMPLEhENTATO 

00120 

8082 




1 


00131 

8082 




; 


00132 

8082 

A3 

48 


LDA A #43 


00133 

0084 

8D 

18 

00 

STA *0018 

/•REGISTRO CONTROLLO MEMORIA VIC 

00124 

8087 




) 


00125 

8087 




i CARICO NEL REGISTRO A 

00126 

8087 




; IL SEMIBYTE RELATIVO 


0012? 

308? 




1 AL NUOVO INIZIO ROUTINE 

00 1 23 

8067 




; NON MASKABLE INTERRUPT 

00123 

6087 




; -NMI E 1 UN PIN DELLA CPU 

00130 

8087 




J ATTIVO BASSO CHE NON 

E 1 

00131 

808^ 




3 INTERESSATO DAI OISABLE INTERRUPT 

00 1 32 

8087 




J FATTI VIA SOFTWARE 


00133 

3087 




; 


90 134 

39B7 

A9 

24 


LDA N$24 

;LSB NUOVA 1SWI 

00135 

8083 

8D 

18 

03 

STA $0318 

; VETTORE M4I BYTE BASSO 

00136 

3032 




J CARICO NEL REGISTRO f 

* IL SEMIBYTE RELATIVO 

00137 

8082 




; AL NUOVO INIZIO ROUTlfE 

00138 

B08C 

A9 

31 


LDA usai 

;msb NUOVA NMI 

00139 

300E 

3D 

19 

03 

STA #0319 

; VETTORE M*1I BYTE ALTO 

00140 

8091 




«1 

/ 


00141 

8091 

A9 

7F 


LDA H$7F 


00142 

8093 

80 

0D 'OD 

STA $0000 


00143 

3036 




3 


00144 

3096 

A9 

65 


LDA tt$65 

iCARlCAhENTO INDIR INDIC 

00145 

@093 

85 

3F 


STA $9F 

;LQCAZIOtC MS8 INIZIALE IMMAGIIC 

00148 

B03A 

A3 

50 


LDA H$50 


00147 

8092 

85 

SE 


STA SSE 

3 LOCAZ 10hE LSB INIZIALE IMMAGIfC 

00148 

809E 

A3 

98 


LDA tt$3B 


00148 

80A0 

SO 

0F 

OD 

STA $000 F 

; REBISTRO CONTROLLO CIA 

80150 

80A3 


« 


J 


00151 

S0A3 

OD 

06 

DO 

STA $DD06 

J TIMER B BYTE BASSO 

00152 

60RB 

A3 

03 


LDA fi $03 


00153 

S0A8 

3D 

07 

DD 

STA $0007 

; TIMER B BYTE ALTO 

00154 

80RB 




J 


00155 

00mB 

A3 

80 


LOfl H#00 


00156 

30nD 

35 

03 


STA *03 


00157 

S0AF 

A3 



TAY 


G8158 

8080 

91 

3E 


STA < #9E ) < Y 


00153 

@002 




s 


08160 

3082 

A3 

FF 


TV6 LOfl HSFF 


00 161 

S0E4 

80 

04 

DD 

STA *0004 

J TIMER A BYTE BASSO 

00182 

3007 

ao 

85 

DO 

STA *0005 

JTIfrCR A BYTE ALTO 

00163 

30BA 




ì 


00164 

80BA 

AD 

m 

DD 

LDA *0000 

J REGISTRO CONTROLLO INTERRUZ * 

00185 

80BD 

A9 

39 


LDA li £83 
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LINE# 

LOC 

CODE 


LlhE 

00166 

80BF 

BD 

0E 

DO 

STA SDDSE . «REGISTRO fi DI CONTROLLO CI fi 

00167 

80C2 





00166 

8062 

FI3 

93 


LDfi #*93 

00169 

80C4 

SO 

00 

DO 

STA *0000 

00170 

806? 

58 



TV4 CL1 

00171 

S0C8 




1 

00172 

8068 




iROUTirvE KERNfiL 'GETIN* Lfi QUALE 

00173 

S0C8 




«RITORNA IN A IL VALORE RELATIVO 

09174 

esce 




;AL TASTO - SO SE NON RILEVA 

00175 

8063 




i RILEVATI TASTI PREMUTI 

00 1 76 

9068 




; 

00177 

SfcCB 

20 

E4 

FF 

TV 2 JSR *FFE4 ; GETIN KERNAL 

00178 

seco 

F0 

F8 


BEO TV2 ;SE A=0 RITORNA A 6ET1N 

00179 

seco 




1 

00180 

80CD 




i COMPARA SE IL VALORE DI RITORNO 

00181 

BOCD 




« E ' RELATIVO AL TASTO F? PREMUTO 

00182 

esco 




f 

1 

00183 

3060 

C3 

83 


Crt> #*88 «TASTO F7 PREMUTO ? 

00184 

00CF 

D0 

0B 


BIE TV3 «NON E' F7 

00193 

800 1 

AD 

li 

00 

LDA *0011 

00186 

80D4 




J 

00187 

B0D4 




«RICOROAMJO CHE EOR CON l COI*FLEfENTA 

0018Q 

8004 




it^ENTRE EOR CON 0 LASCIA INVARIATO 

00189 

3004 




i COMPLEMENTO QUI 1 

00190 

80D4 




i IL SII 4 RlEhPIEM30 LO SCHERMO COL 

00191 

8004 




j COLORE DEL FONDO 

00192 

8004 




1 

00133 

8004 

49 

10 


EOR tt*10 ; TOGLIE IL VIDEO 

00134 

30D6 

80 

11 

D0 

STA *D01i; CARICA NUOVO VALORE 

00195 

80D9 




ì 

80138 

80D9 




J 

00197 

8009 

4C 

C7 

80 

JhF TV4 JLOOP 

00138 

8006 

48 



TV3 PHA ; SALVA A 

00139 

80DD 




ì 

00200 

80DD 

AD 

00 

OD 

LDA *DD00 

00201 

80E0 




1 COMPL REO PORTA DATI A 

00202 

80E0 

49 

01 


EOR tt*01 JCOMPLEI'CNTA BIT 1 

00203 

80 E 2 




1 REGISTRO PATI PORTA A 

00204 

80E2 

SD 

00 

DO 

STA *0000 

00285 

80E5 




; 

00286 

80E5 

AD 

11 

00 

LDA *0011 ; REGISTRO CONTROLLO VIC 

00207 

80E8 

49 

20 


EOR tt*20 ;COr*FLEt*ENTA BIT 5 

00208 

80EA 




; DISAB ILITA BIT MAP 

00209 

30ER 

SO 

11 

09 

STA *0011 

00218 

80ED 




ì 

0821 1 

80ED 

a D 

!E 

00 

LO A $0016 ; REGISTRO CONTROLLO VIC 

00212 

80F0 

43 

10 


EOR HS10 ì COffPLEMENTA BIT 4 

00213 

80F2 




; DISABILITA MULTICOLORE 

00214 

80F2 

80 

18 

00 

STA *00 1B t CARICA NUOVO VALORE 

00215 

80F5 




J 

00218 

80F5 




; 

80217 

80F5 

A9 

15 


LDA WS 15 

002 13 

80F7 

80 

18 

00 

STA *0018 i REGI SIRO MEMORIA REGISTRO MEM V 

1C 






00213 

80FA 




; 

00220 

80FA 

A3 

01 


LDn tt*31 ; REGISTRO C00D1CE COLORE 
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# 


LINE# 

a 

a 

CODE 


LINE 



00221 

30 FC 

8D 

86 

02 


STA S0E86 


00£££ 

80FF 




r 



00223 

S8FF 

A3 

47 



LOA #*4? 

; RIPRISTINO NMI 

B0E24 

81B 1 




t IL VALORE 01 DEFAULT INIZIO ROUTINE 

00225 

8101 




;NÙN MftSKABLE INTERRUPT E' PER IL 

08226 

8101 




; COMMODORE 64 S FE47 

00227 

81S1 




; 



00228 

3101 

80 

18 

03 


STA $03 18 


00229 

8104 

A3 

FE 



LOA tt*FE 


00230 

3106 

30 

19 

03 


STA *0313 


00231 

8109 




i 



00232 

8109 

A3 

8E 



LOA #S8£ 

J DEFINISCE MAIUSCOLO 

00233 

3106 

20 

D2 

FF 


JSR *FFD2 

; ROUTINE CHROUT KERNAL 

00234 

310E 




* 

f 



00235 

8S0E 

AD 

11 

D0 


LDA *0011 

; R I POS 12 IONA SCHERMO 

00238 

8111 

03 

10 



ORA #$10 


00237 

8113 

90 

11 

00 


STA SD0U 


00238 

@1 16 




* 

i 



00239 

SUB 

A3 

41 



LDA #*41 

; CARATTERE 01 ASSENSO 

00240 

81 18 

20 

D2 

FF 


JSR $FFDH 

; ROUTINE CHROUT KERNAL 

00241 

8116 




; 



00242 

81 18 






;la pressi ore di tasto 

0S243 

3116 




- 


/DIVERSO DA * F7 * PROVOCA IL 

00244 

8118 






; RESET DELLA IMMAGINE 

00245 

311B 






# AL MOMENTO VISUALIZZATA 

0024S 

SUB 


* 


ì 



00247 

81 16 




} RI ALLINEA STACK 


00248 

81 1B 

58 




CLI 


00243 

8UC 

68 




PLA 


0025® 

SUD 

68 




PLA 


00251 

81 1E 

68 




PLA 


00252 

91 1F 

68 




PLA 


80253 

9128 

EA 




NOP 


00254 

e lei 

EA 




NOP 


00255 

8122 

78 




SEI 


08256 

8123 

60 




RTS 


00257 

8124 




# 

f 



00258 

8124 




m 

* 



00253 

8124 




# 

JP 



00280 

8124 




J 



00261 

8124 




ì 



00262 

8124 





*«$8124 

1 ORIGINE INTERRUPT 

00263 

3124 




J 


*■ 

00264 

6124 




; ROUTINE NMJ CHE SOSTITUISCE L' ORIGINALE A PARTIRE OA 

$FE47 








90265 

8 4 24 




J 



00268 

8124 




1 



00267 

f Y 

8124 




; SALVO 

NELLO STACK 

I REGISTRI DEL B510 NELL' ORDINE A,X 

00268 

8124 




-•PARTICOLARE DA RICORDARE POICHÉ' SARANNO RICHIAMATI AL 

Lfì 








00289 

8124 




JF INE 

DELLA ROUTINE 

CON PROCEDURA UFO 

00270 

8124 




; LAST 

IN FIRST GUT 

- L'ULTIMO AD ESSERE CARICATO 

00271 

8124 




} SARA • 

IL PRIMO AD 

ESSERE RIPRESO 

00272 

9124 




* 
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LIME# 

LOG 

COOE 


LlhC 



00273 

3124 

42 




PHA 


00274 

8125 

8ft 




TXA 


00275 

S12S 

49 




PHA 


00276 

8127 

98 




TYA 


00E77 

B 128 

48 




PHA 


00278 

8129 




J 



00278 

A 

8129 

AC 

00 

DO 


LOY *0000 ; 

REGISTRO CONTROLLO INTERRUZIONE 6526 

n 

00280 

8 12C 




• 

# 



00281 

BI2C 

A3 

7F 



LDA #«7F 


00282 

312E 

eo 

00 

OD 


STA «OD0D/ 

CARICA VALORE INIZIO 

00223 

B 13 1 




I 



00284 

8131 

BA 




T3K 


00285 

8132 

E0 

40 



CPX #*40 


00286 

8134 

30 

06 



BCS TVS 


00237 

8138 

82 

FA 


TV 7 

LDX #SFA 


002S8 

8138 

90 




TX5 

; PORTA X NELLO STACK 

00289 

8139 

4C 

B2 

80 


JMP TVS 


00290 

8 1 3C 




# 



00291 

813C 

SS 



TV 5 

TYA 


08292 

3130 

29 

ai 



AND #$81 


00293 

8 13F 

C9 

ai 



CMP #*8i 


00294 

9141 

F0 

F3 



BEO TV? 


00295 

B 143 




1 



00296 

8143 

99 




TYA 


00237 

8144 

23 

91 



fiN3 #«31 


00290 

8 1 46 

C9 

90 



CMP ««90 


00299 

8148 

□0 

27 



8 NE TVS 


00300 

S14A 




J 



00301 

814A 

A2 

06 



LDX ««08 


00302 

S14C 

8E 

0F 

DO 


STX «ODBF 

/REGISTRO CONTROLLO 6526 B 

00303 

814F 

AD 

07 

OD 


LDA «0007 

/CARICA IN A VAL TIMER MSB 

00304 

8152 

S5 

4D 



STA *40 

/LOCAZIONE BUFFER LETTURA TIMER 

B 

00303 

8154 

AD 

08 

OD 


LDA SOD08 

/CARICA IN B VAL LSB TIMER B 

00306 

815? 

46 

40 



LSR *4D 

/SEGUE CAMPIONAMENTO PER BIT 

00307 

8159 

6A 




ROR A 


00308 

8158 

46 

40 



LSR *40 


00308 

315C 

EA 




ROR A 


00310 

81 50 

AE 

05 

OD 


LOX «0005 

/X = VALORE MSB T1PCR A 

00311 

3160 

36 

4D 



STX *4D 


00312 

8162 

A2 

13 



LOX #$19 


90313 

A 

8164 

8E 

0F 

DO 


STX SDD8F 

/NUOVO VALORE REO 8 CONTROLLO CI 

m 

00314 

8167 

A2 

03 



LDX #$03 

/VALORE DIRETTO MJM TONI 

00315 

8163 

OD 

F6 

81 

TV 10 

CMP TAVI,X 

J TAVOLA COfvFARAZ IOhE 

003 16 

3160 

B0 

00 



BCS TVS 


00317 

8I6E 

CA 




DEX 


08312 

819F 

10 

FS 



BPL TV 10 


003 19 

8171 

ES 

03 


tvs 

INC «03 


2Q320 

0173 

A9 

19 



-DA M*19 


00321 

3175 

80 

0E 

OD 


STA «OD0E 

J REGISTRO A CONTR 6326 

00322 

3178 

4C 

EB 

01 


JMP TV11 

/ FINE ROUTINE 

00323 

8 17B 

A5 

40 


TV9 

LDA «4D 

/ROUTINE DI CAMPIONE MENTO ED 

00324 

8170 

49 

FF 



E OR #«FF 

J INCREMENTO LETTURA PER BIT 
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ASSEM* PAGE 0007 

LI NEH LOC CODE LINE 


00323 

SI7F 

4A 



LSR 

A 

00326 

8100 

B5 

40 


STA 

*40 

0032? 

2182 

4A 



LSR 

A 

00320 

8133 

18 



CLC 


00223 

8134 

B5 

40 


ADC 

*4D 

00330 

8186 

BG 

40 


STX 

«4D 

00331 

8133 






00332 

3183 

49 



PHA 


00333 

8139 

29 

FS 


ANO 

#«F6 

00334 

8 1 8B 

AB 



TAY 


00335 

818C 

63 



PLA 


00336 

318D 



/ 



00337 

8180 

6A 



ROR 

A 

00338 

918E 

29 

03 


ANO 

#*03 

00333 

8190 

49 

03 


EOR 

#£03 

00340 

8192 

AA 



TAX 


0034 1 

8133 



5 



00342 

6193 

A5 

40 


LDA 

*40 

00343 

8135 

18 



CLC 


00344 

8196 



1 



00345 

8196 

CA 


TV14 

DEX 


00346 

8137 

30 

04 


BMI 

TV 13 

0034? 

8199 

0A 



ASL 

A 

00348 

8I9A 

0A 



ASL 

A 

00349 

8 1 9B 

90 

F9 


BCC 

TV 1 4 

00350 

8190 



J 



0035 I 

8190 

48 


TV13 

PHA 


00352 

S13E 

A6 

03 


LDX 

«03 

00333 

S1A0 

E0 

12 


CPX 

**I2 

00354 

SIA2 

80 

23 


BCS 

TV 15 

00355 

81 A4 



/ 



00356 

8 1 A4 

E0 

04 


CPX 

#«04 

00337 

81A6 

90 

30 


BCC 

TV16 

00358 

B1AB 

EG 

9E 


INC 

*3E 

00359 

aiAA 

00 

04 


BNE 

TV 1 7 

00360 

8 1 AC 

E6 

9F 


INC 

S9F 

00361 

81AE 

30 

17 


BMI 

TV 15 

00362 

3 1B0 



# 



00363 

8180 

A3 

SE 

IVI? 

LDA 

*9 E 

00364 

8182 

29 

07 


AND 

#«07 

003S5 

B1B4 



/ 



00386 

8184 

D0 

19 


BNE 

TV 18 

00387 

31BS 

A5 

3E 


LDA 

«SE 

0 

00368 

91B8 

1B 



CLC 


00369 

8 1B9 

69 

3S 


ADC 

#«38 

00370 

B 166 

85 

9E 


STA 

«SE 

00371 

31B0 

A3 

9F 


LDA 

*9F 

00372 

61BF 

69 

01 


ADC 

HS01 

00373 

81C1 

85 

9F 


STA 

«9F 

00374 

B1C3 

C3 

7E 


CMP 

#*7E 

00375 

81C5 

30 

08 


BCC 

TV 18 

00376 

8IC7 

A2 

65 

TV15 

LDX 

#«65 

00377 

G INE 

8 ICS 

38 

9F 


STX 

*SF 


; VALORI DI GRIGIO PRESENTATI 
/PER COMPARAZIONE COL LORO 
/LIMITE SUPERIORE IN FREQUENZA 


/VALORI DI SINCRONISMO 
; ATTUATI IN BASE ALLA LORO 
; DURATA - 5 M1LLI3 ORIZZ » 

; 30 MILLIS VERT1C 


/■COMPARO PER RICERCA 
/ SUPERAMENTO LIMITE INFERIORE 

/VISUALIZZAZIONE IMMAGINE 

/SE SUPERA PRODUCE UN SINCRONI SM 

/VERTICALE 


/ MSB INFERIORE 
J PRESENTAZIONE IMMAGINE 
/ VALORE MSB LOCAZIONE 
/INIZIO CARICAMENTO MEMORIA IMMA 
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ASSEM* 


PAGE 0003 



LII'C# 

LOC 

CODE 

LINE 



0037B 

81CB 

A2 50 


LOX t*S50 

; VALORE LSB LOCAZIONE INIZIO 

00379 

8 ICO 

8B 9E 


STX *2E 

; CARICAMENTO IMMAGINE 

08390 

BICF 


; 



00331 

S1CF 

A3 00 

TV 13 

LDA #*00 


00399 

3 1D 1 

84 4D 


STY *4D 


00383 

8 103 

80 


TAY 


00384 

8104 

91 3E 


STA (*9E),Y 


90385 

8106 

A4 40 


LDY S4D 


00386 

31DS 

68 

TV 16 

FLA 


00387 

81D3 

C0 BS 


CPY #*88 


00388 

S10S 

00 04 


BCS TV 19 


00383 

81DD 

11 9E 


ORA <*3E>,Y 


00330 

S10F 

31 9E 


STA <*3E>,Y 


00391 

airi 

98 

TV 13 

TYA 


00332 

8 1E2 

69 08 


ADC #*08 


00333 

8 1E4 

A8 


TAY 


08334 

31E5 

A3 00 


LDA #*00 


00335 

B1E7 

85 03 


STA *03 


09396 

8 1E9 

91 SE 


STA (*SEK-Y 


00397 

S1EB 




* 

00398 

81EB 

A3 93 

TV 1 1 

LDA #*33 


00339 

81ED 

0D 0D DO 

STB $DD0D 

J REGISTRO CONTROLLO 65 SS 

00400 

8IFB 




; 

00401 

B1F0 




; RIPRISTINA I VALORI DEI REGISTR 

I Y,K, 

A IN SEQUENZA 

LIFO 



00402 

B1F0 

68 


PLA 


00403 

B1F1 

A8 


TAY 


00404 

31F2 

88 


PLA 


00405 

B1F3 

AA 


TAX 


00406 

61F4 

68 


PLA 


00407 

81F5 


t 



00408 

81F5 

40 


RTI 

; RETURN INTERRUPT 

00409 

01F8 


ì 



00410 

SIF6 


1 



00411 

81F6 


; 



00412 

81F6 


; TAVOLA COMPARAZIONE 

VALORI MASSIMI LETTURA TIMER 

00413 

81FS 


; 



00414 

SÌF6 

34 

TAVJ 

•BYTE *34 


00415 

81F7 

55 


•BYTE *55 


00416 

81F6 

SA 


•BYTE *SA 


00417 

8 IF3 

7B 


•BYTE *78 


00416 

81 FA 

00 


, BYTE *00 


00413 

B1FB 

4B 


-BYTE *4B 


00420 

81FC 

A0 


•BYTE *A0 


0042 J 

8 1FD 

63 


•BYTE *83 


00422 

81FE 

69 


, BYTE *83 


00423 

81FF 

5F 


• BYTE *5F 


00424 

0200 

4E 


.BYTE *4E 


00425 

8201 

55 


.BYTE *55 


00426 

8202 

49 


.BYTE *49 


00427 

8203 

4A 


•BYTE *4 A 


00428 

8204 

51 


.BYTE *51 


00429 

6205 

20 


•BYTE *20 


00430 

8206 





00431 

8206 


; 



00432 

3206 


• END 



ERRDRS 

= 00000 
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Le funzioni diagrammose 


di Ermes Gallarati e Luigi Paraboschi 


Analisi immediata dei dati introdotti e trasformazione in diagramma 


Le grandezze che conservano costante- 
mente il medesimo valore vengono defi- 
nite costanti; la superficie di un tavolo o 
ta lunghezza di una via sono esempi di 
grandezze costanti. 

Vi sono anche grandézze che posso- 
no assumere valori diversi, quali ad 
esempio la velocità di un veicolo o la 
temperatura di un dato luogo. Tali gran- 
dezze si definiscono variabili 

Spesso in matematica, in fisica, in 
questioni commerciali o in rilevamenti 
statistici, capita di avere a che fare con 
grandezze variabili, dipendenti da un'al- 
tra grandezza, anch'essa variabile. Ad 
esempio, il valore della temperatura di 
una certa località dipende dal momento 
in cui è stata registrala. 

Quando una grandezza variabile di- 
pende da un 'altra grandezza, anch'essa 
variabile, e quando a ciascun valore del- 
I 1 ultima variabile corrisponde un unico 
determinato valore della prima grandez- 


za, si dice che questa è funzione della 
seconda, chiamata variabile indi- 
pendente. 

Rappresentazioni grafiche 
di funzioni empiriche 

Il numero dei soci iscrìtti a una certa 
associazione è funzione del momento in 
cui sono stati raccatti i dati relativi: a ogni 
valore numerico dei soci corrisponde un 
unico valore di tempo. Fissata la suddi- 
visione temporale, la consistenza nu- 
merica dei soci potrà essere stabilita so- 
lo sperimentalmente attraverso un'inda- 
gine suite iscrizioni. Definito il valore del 
tempo, si predisporranno delle tabelle 
su cu* trascrivere i valori corrispondenti 
alia consistenza numerica dei soci, de- 
terminati sperimentalmente attraverso 
la revisione dei dati sulle iscrizioni, 
Questo tipo di funzioni, dette funzioni 


empiriche comprendono dati soggetti a 
variazioni imprevedibili, prive cioè di un 
andamento regolare. 

Proponiamoci, per esempio, di rap- 
presentare graficamente le variazioni 
del numero di iscritti a un’ipotetica asso- 
ciazione, registrate nell'ultimo decen- 
nio. Dai dati statìstici rilevati annualmen- 
te. al 31 dicembre, si ricava la seguente 
tabella; 

Disegnate ascissa e ordinata, asse- 
gneremo all'ascissa (x) il valore di tem- 
po: fisseremo sulla stessa una suddivi- 
sione arbitraria, utilizzando come unità 
di misura un segmento adatto a rappre- 
sentar© l'intervallo di un anno: airordi- 
nata (y) assegneremo i valori assoluti 
dei soci iscritti fissando sull'asse un 
segmento adatto a rappresentare Lunità 
di misura, Tracceremo sulla carta I punti 
che avranno per ascissa ì valori del tem- 
po (anni) e per ordinata I valori relativi ai 
soci iscritti {valori assoluti). 


<x> 

1975 

1976 

1977 

1978 

1979 

1 980 

1981 

m m m 

<y> N. ISCRITTI. 

1 00 

25S 

200 

400 

150 

300 

250 

r * • 
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Un grafico di questo tipo risulta di ditti- 
ate lettura; diventerà però vìsivammen- 
ìe più evidente se si congiungeranno 
con dei segmenti di retta i punti A, 8, G. 
D, ottenendo così una linea spezzata 
che rappresenta le variazioni degli iscrit- 
ti nel periodo di tempo considerato. Ab- 
biamo così ottenuto un grafico o dia - 
grarnma delia variazione dei soci iscritti 
in funzione dei tempo. 


può visualizzare anche solo una parte, 
indipendente dal resto 
Così, ad esempio, se dobbiamo evi- 
denziare attraverso un grafico la consi- 
stenza della popolazione di una città, 
suddivisa in maschi e femmine, o per 
settori di attività, ci serviremo dì un areo- 
gramma, ma se dobbiamo analizzare i 
movimenti di popolazione netrultimo de- 
cennio ci serviremo di un diagramma. 


tura ed evitando un lungo lavoro di tra- 
sposizione dei dati reali e di attenzione 
alla impaginazione grafica. 

Anche questo programma, come il 
precedente per gli areogrammì. non si 
affida al solo uso dei colori di schermo, 
ma cerca di sfruttare una rappresenta- 
zione che abbia anche una facile traspo- 
sizione sulla carta, per Fa registrazione 
permanente del risultato. 


V 



A differenza deil'areogramma (pre- 
sentato nel numero di ottobre della rivi- 
sta) il diagramma cartesiano non deve 
necessariamente rappresentare l'intero 
fenomeno preso in considerazione: ne 


Il programma che presentiamo per- 
mette di visualizzare (e di stampare) i 
dati relativi a un fenomeno, registrato in 
una precedente tabella, producendo un 
diagramma cartesiano di tacitissima (et- 


II programma richiede la semplice in- 
troduzione dei valori reali accompagnati 
dal nome deiroggetto cui sono riferiti. 
Per ragioni dì impaginazione accetta fi- 
no a un massimo di 15 valori positivi, da 
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0 a 100 000.000: provvede a porre in 
scala 1 valori che verranno slampati su^ 
l'ordinata; propone un titolo per il dia- 
gramma e una dettagliata legenda che 
verrà stampata sulla parte atta dello 
schermo e comprenderà l'intera sene 
dei dati. 

Per rendere ancora più evadenti i valo- 
ri introdotti verranno marcate te con- 
giunzioni dei segmenti che uniscono » 
punti con una linea verticale, da vertice 
ad ascissa e verrà stampato il valore 
assoluto inserito alla congiunzione dei 
segmenti stessi. 

H programma è di uso semplicissimo: 
basta digitare correttamente i dati richie- 
sii, dimensionare correttamente la scala 


Il programma 


Datta linea 10 afta 130. stampa delia 
copertina del programma utilizzando li- 
nee DAT A e la funzione RND per la scel- 
ta casuale dei colori e delle dimensioni 
delle parole che compongono il titolo. 

Dalla 150 alla 180; input titolo con 
controllo della lunghezza dei caratteri 
che io compongono (max. 38). 

Dalla 200 alla 270 ; input numero dì 
dati da introdurre (max t5); input valore 
e nome dell'oggetto con controllo della 
lunghezza del caratteri dello stesso. 

Dalla 300 alla 410; scelta della scala 
dei valori (da calcolare sul valore nume- 




sul valore più elevato e ... prendere vi- 
sione del grafico sullo schermo e, even- 
tualmente, su carta. 

Ci sembra doveroso ricordare che il 
programma accetta solo valori positivi 
(da 0 a 1 00.000.000) perchè condizio- 
nato dal posizionamento degli assi car- 
tesiani. In un prossimo futuro ne presen- 
teremo uno adatto alla gestione contem- 
poranea di valori negativi e positivi. Uti- 
lizzando valori composti da più di tre 
cifre sarà bene eliminare le Itnee 900 e 
910; non verranno riportate ai vertici dei 
segmenti le cifre corrispondenti ai valori 
reali introdotti, ma sì guadagnerà in 
chiarezza. 
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rico più elevalo) e rimando alle subrouti- 
ne di calcolo deila scala stessa. 

Alla 430: inizio pagina grafica e stam- 
pa del titolo scelto per individuare il 
diagramma. 

Dalia 450 alla 620: disegna l'ordinata 
e l’ascissa suddividendole con segmen- 
ti. Stampa inoltre la suddivisione da 0 a 
1 00 per l'ordinata e quella da A a Q per 
l'ascissa. 

Dalla 630 alfa 700 : disegna il dia- 
gramma vero e proprio tracciando i seg- 
menti Che uniscono due punti. 


Dalla 720 affa 800 : scrive all'apice 
dell’ordinata (Indice della scala prescel- 
ta. indice per il quale debbono essere 
moltiplicate le cifre che appaiono per ri- 
portarle ai dati reali II valore della X 
consente la centratura dei valori sut ver- 
tice dell ascissa 

Dalla 820 alla 890: stampa la legenda 
su tre colonne, nella parte superiore del 
diagramma. 

Dalla 900 alla 910 ; stampa i numeri, 
ridotti in scala, al vertice dei segmenti 
che formano la linea spezzata. Nel caso 
di numeri che superino le tre cifre, si 


consiglia di eliminire le due righe per una 
più chiara im paginazione. 

La linea 930: disegna la cornice ai 
diagramma 

La 940; permette la visualizzazione 
del grafico per un certo perìodo di tem- 
po. Per ottenere il trasferimento del gra- 
fico sulla carta sostituire PAUSE 20 con 
COPY. 950 - 990 : opzione di continua- 
zione con la introduzione di nuovi dati o 
termine del programma. 

Dalla 1000 alla 1310 : subroutine dì 
calcolo per la riduzione in scala dei 
valori. 


1 REM *#**»if!ft*3t5#####***#*f**ifE#**####* 


2 REM * D r H G R ft M M I ’* 

3 REM # BV * 

4 REM * ERMES GflLLARATI * 

5 REM * AND * 

6 REM * LUIGI PARMBOSCH I * 

7 REM * PER 064 CON SIMON'S BASIC * 

3 REM * * 


■? rem 

10 URTA" D I A G R A fi M I " 

23 HATA "QUESTO PROGRAMMA " 

33 HATA "PERMETTE UNA " 

4@ HATA" VISUALIZZAZIONE 
50 nATA"DI VALORI SUGLI " 

60 HATA "ASSI CARTESIANI 
70 HTRES0 • 1 : MULTI 2.* 5/ 6 X=12 ■ V=10 
33 FORI = 1 T06 : REAI'T $ 

90 M=INT(RNBOO#3> + 1 
1 00 TEXTX , V ,T*,A , fl , 8 : V=V+30 
110 NEXT 
120 PAUSE? 


******************************* 

* LISTA VARIABILI * 

******************************* 

* F$ = TITOLO DIAGRAMMA * 

* R = N. OGGETTI INDAGINE + 

* 0< I ) = VALORI * 

* D« I)= NOhE OGGETTO * 

* I = CONTATORE 01 CICLO * 

* X *= ASCISSA * 

* Y = ORDINATA * 

* A = INDICE DELLA SCALA * 

* SS = VALORE DELLA SCALA * 

******************************* 

* DIAGRAMMI * 


******************************* 


130 NEH 

140 REM **** INPUT TITOLO **** 

150 COLOUR6, 6 PRINT , L"M^"TAB<10> " 3 DIAGRAMMI»" 

160 PRI NT " fMsJMPEjAMM I UN TITOLO PER IL DIAGRAMMA" 

170 PR I NTT AB < 1 3 > " SK MAX 38 CHAR. Xtìtì" : INPUTF* IFF$=" "THENF$="*" 
130 F=LENCF$> : IFF>38THEN140 
190 REM*** INPUT DATI *** 

203 PRINT"nW"TAB<9)“a DIAGRAMMI ■" 

210 PRINT “^GUANTI URTI BEVI INTRODURRE <MAX 15>": INPUT R 
220 I FR> 1?T HEN200 
230 DIMIK15>,B$<15> 

240 F0RI=1 TO R • FRI NT " EVALORE " I " =" ; : I NPUTDC I > 

250 PRINT" OGGETTO “I" ="; : INPUTPf <I> = IFB*< I>=" "THENItf<I>= ,, 0" 
260 IFLEN<D$< I > »9THENP$( I :>=LEFmB$ < I > , 9> 

270 NEXT 

280 REM*** SCALA *** 
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298 PRINT , \TrTAB<9> ,, a DIAGRAMMI!" 

300 PRINT"M8SCELTA DELLA SCALA PER DATI DR : 11 
318 PRINT'Mfl 1=0- 100" 

320 PRINT'M 2=0- 1000" 

330 PRINT"M 3 = 0 - 13 MILA" 

340 PRINT"» 4 = 0- 100 MILA" 

350 PRINT"3W 5 = 0-1 MILIONE" 

360 PRINT'\W 6 = © - 10. MILIONI" 

370 PRINT".W 7 = 0- 190 MILIONI" 

380 GETA* ^ I FA* = " “ THEN380 
390 R=VfìL < fl$ > ■ 

400 I FAC 1 C'RA>7THEN380 

4 1 0 QNAGOSUB1 000 .• 1020,1 070, 1120,11 70 , 1 220 , 1 278 
428 REM#*# PAGINA GRAFICA *** 

430 HIRES0, 1 = TEXT 10,5, F$, 1 , 1 ,8 : L INE0, 15, 319, 15, 1 = N=1@0 

449 REM*## TRACCIA ORDINATA *** 

450 LINE28, 70, 28, 1 80, 1 : TEXT25, 63, " t“ ,1,1,8 = TEXT25, 55, "iflV" ,1,1,8 
468 FQR Y=0 T ONSTEP 1 0 

470 LINE20, 180-Y, 25, 180-Y, 1 = NEXT 
480 FORY=0TONSTEP50 
490 TEXT0, 1 75- V , STR*< Y> , 1,1,6 
580 NEXT 

510 FORY=0T 0NSTEP5 

529 LINE24, 180-Y, 25, 180-Y, 1 

530 NEXT 

540 REM*## TRACCIA ASCISSA ##* 

550 LINE28, 180,310, 180, 1 =TEXT305, 177, ">X",1, 1,7 
568 F0RX=2ST028*1 0 . 5STEP20 
570 LINEX, 1 80, X, 185,1 
588 NEXT 

590 REM*** SUDDIVISIONE ASCISSA #*# 

600 FORX=OTOR-l 

6 1 0 TEXT25+X*20 ,190, CHRS < < X ) +65 > , 1 , 1 , 6 
620 NEXT 
630 X=28 

640 REM*#* TRACCIA GRAFICO #*# 

650 F0RI=1TDR-1 

660 L INEX, 1 80-IK I > , X+20, 1 80-IK 1+1 > , 1 = X=X+20 
670 NEXT 

688 X=28 : FORICI TOR 

690 LINE X,180,X,180-DU>,1 -X=X+20 

700 NEXT I 

710 REM### INDICA LA SCALA **# 

720 TEXT1 8, 38, "i^ER" ,1,1,8 
730 I FA= 1 THENS*= " 1 " = X=25 
740 IFA=2THENS*=" 10" : X=22 
750 I FA=3THENS*= " 100": X=20 
760 IFA=4THENS*="1000" ; X=15 
770 IFA=5THENS*=" 10800" ; X=10 
780 IFA=6THENS*=" 180000" X=5 
790 I FA=7THENS$= " 1 000000 " : X=2 
800 TEXTX, 48, S*, 1,1,7 
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810 REM#** LEGENDA» 

828 TEXT2, 20, "ia_EGENI»A ■"AA.-7 
838 V=20 : X=65 

840 V=28 ^ FORICI TOR : TEXTX, V- CHR$< (I>+64>, 1.. 1 ,8 

350 T£XTX+3,V, " = ",1,1,6 

860 TEXTX+ 1 8 , V , H$ < I > A A. >7 

878 I F I =5THENX=X+85 -V=Ì8 

880 IF 1 = 1 8THENX=X+85 - V= 1 8 

890 V-V+10 : NEXT 

800 X=23 : F OR I = 1 TUR 

310 TEXTX, 1 70-H < I > , STRJ ( r •; I > > , 1 , 1 , 8 : X=X+20 : HEXT 
920 REM #* TRACCIA RIQUADRO *# 

930 LINE0,0,319,0,DLINE319, 0,319,199,1 : LINE319, 199,0, 199, 1 ■ LINEO, 199, 
0 , 0 , 1 

940 PAUSE20 : REM# SOSTITUIRE CON 'COPV' PER LA STAMPA # 

950 NRM : PR I NT 11 rftWNUO 1 UN' FILTRA ANALISI (S/N)" 

960 GETQ$ ^ IFG$=" "THEN968 
970 IFG$0"S" RNDQ# O " N ” THEN960 
980 I FQ$= " S " THENRUN 1 40 
990 END 

1080 REM*#* 0-188 *** 

1010 RETURN 

1020 REM*## 0-1808 *** 

1038 FORI -1 TOR 
1848 IK I >=D< I V18 
1058 NEXT 
1068 RETURN 

1878 REM### 8-10 MILA ##* 

1888 FORICI TOR 
1890 IK I >=IK I VI 88 
1108 NEXT 
1118 RETURN 

1128 REM*#* 0-100 MILA #** 

1130 FORI =1 TOR 
1148 D<I>=rKI>/1000 
1150 NEXT 
1160 RETURN 

1170 REM### 8-1 MILIONE ##* 

1188 FORI=lTOR 
1198 D<I)=D< D/l 0008 
1208 NEXT 
1218 RETURN 

1228 REM#** 8-10 MILIONI *** 

1230 FORI =1 TOR 
1248 Da >=IK IV 100800 
1250 NEXT 
1268 RETURN 

1278 REM### 0-100 MILIONI *#* 

1280 FORICI TOR 
1290 IKD-Ba VI 080000 
1308 NEXT 
1310 RETURN 
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’hB 'arem arca finanziaria 

Capitalizzazione semplice 


dì Arturo Pizzuto 


La caprai dazione semplice abbraccia solo una piccola parte 
della matematica finanziaria; possiamo considerarla la branca 
più facile di questa materia. 

Iniziamo a definire in linea generale le tre maggiori opzioni 
che lampeggiano nella prima pagina di testo: 

* interesse semplice; 

* sconto commerciale; 

* sconto razionale, 

Llnteresse semplice costituisce l'importo corrisposto a chi 
concede in prestito II proprio capitai© a un certo tasso d'inte- 
resse e per un certo periodo di tempo. Parlando di interesse 
semplice, si allude solamente all'Importo effettivamente matu* 
rato, con riferimento esclusivo all'importo del capitale dato 
originariamente in prestito, anche nel caso si dovessero con- 
siderare periodi superiori alPanno. E' bene, quindi, non fare 
confusione con [Interesse composto, che sarà argomento 
della prossima lezione. 

Lo sconto commerciale rappresenta l'importo detratto a chi 
paga anticipatamente un debito assunto, prima cioè della 
scadenza delfo stesso, I relativi conteggi, in questo caso, 
vengono fatti con esclusivo riferimento al Cirri porto del debito 
stesso, il quale, in vìa teorica, dovrebbe essere comprensivo 
sia del capitale iniziale che degii interessi maturati sullo stesso 
in relazione al periodo di tempo considerato. 

Semplificando, lo sconto commerciale rappresenta l'impor- 
to. concesso in detrazione, a un certo tassodi sconto e per un 
certo perìodo di anticipo, al debitore che salda il proprio debito 
prima della scadenza. 

Lo sconto razionale, a differenza del commerciale, adotta 
un criterio di valutazione razionale; infatti bisogna, poma dì 
tutto, trovare l'importo effettivo del debito originario e. per 
mezzo di una formula, passare successivamente al calcolo 
effettivo dell' imporlo da detrarre. 

Lo sconto commerciale è comunemente usato in ogni tran- 
sazione, data la semplicità di calcolo, anche se non presenta 
alcun criterio di razionalità. Ad ogni modo, poiché nella pratica 


commerciale, normalmente il periodo di anticipazione è di soli 
pochi mesi, non si rilevano grosse differenze. Per periodi 
superiori, in particolare oltre Tanno, è consìgliabile ricorrere 
allo sconto razionale; infatti, se il periodo di anticipazione 
fosse maggiore di uno diviso il tasso di sconto, si avrebbe uno 
sconto commerciale di importo superiore allo stesso debito. 
Comunque, ognuno sceglierà, dopo aver elaborato i dovuti 
conteggi, il sistema che riterrà econombamente più lucroso. 
Entriamo nel vivo del programma. Abbiamo già visto quali 
sono le tre opzioni che vedremo lampeggiare nella prima 
pagina di testo; dopo aver operato la scatta, si entra nella 
seconda pagina, in cui troveremo cinque opzioni; la prima sarà 
quella che è stata scelta in precedenza, seguita dal montante, 
dai valore attuale, dal tasso d'interesse e dal periodo di tempo. 
Iniziando dal Tìnte resse semplice, vediamo le relative 
formula 

Interesse semplice 

Entrando in questa opzione, la ricerca sarà fatta relativa- 
mente a: 

* interesse semplice; 

* montante; 

* valore attuale; 

* tasso d'interesse; 

* periodo di tempo. 

* interesse semplice. Dobbiamo immettere i valori del capita- 
le o valore attuale, dei tasso d'interesse e del periodo di 
tempo: a proposito di quest'ultimo, è necessario digitare sei 
cifre. Per esempio, un anno, sei mesi e 18 giorni dovrà essere 
scritto: " 010618 "; penserà il computer a tradurre queste sei 
cifre, dandoci la seguente stringa: "lafimiag" 

Passiamo subito alla formula, ricordandoci che k T sta per 
interesse semplice, *W per montante, "c" per valore attuale 
o capitale, "i" per tasso d’interesse, "n" per periodo di tempo: 

l=cTn 
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• Marnante. Rappresenta la somma del capitate o valore 
attuale con l'interesse semplice. Dopo aver immesso i valori 
del capitale, del tasso d'interesse e del periodo di tempo, 
passeremo alla seguente formula: 

m=c‘{1+i’n) 

• Valore attuale . Oltre ai valori del lasso d'interesse e del 
periodo di tempo, è necessario disporre del valore del 
montante: 

c=m/{1 +j*n) 

• Tasso d' interesse . In questo caso, dovremo immettere ì 
valori dell'Interesse semplice, del capitale e del numero delle 
rate: 

i=l/{c*n) 

• Periodo dì tempo. In quest'ultimo caso immetteremo, al 
posto del perìodo di tempo da ricercare, il valore del tasso 
d'interesse: 

n— l/(c*<) 

Vediamo ora la soluzione di un problema propostoci dal 
computer. Supponiamo di Investire la somma di Lit. t, 000.000 
per un anno al tasso d'interesse del 10%. La soluzione del 
problema è duplice, poiché si può ricercar© l'importo deir inte- 
resse semplice, quello del montante. Comunque, il computer 
et presenterà, in un caso o nell'altro, la stessa tabella: 


Capitali zz + semplice- Interesse semplice 


Interesse semplice 100000 

Montante 1 100000 

Valore attuale 1 000000 

Tasso d'interesse 10.000% A 

Perìodo di tempo la Om Og 


La suddetta tabella viene direttamente rappresentata sullo 
schermo del C64 e, sotto, è visualizzata la sdita riga in rever- 
se. con le istruzioni: "s 1 * se vogliamo (disponendo di una 
stampante) visualizzare su carta la tabella sopradescrìtta; 
"crsr TI per posizionarci sulla riga che si vuole cambiare, in 
caso si vogliano rifare tutti i calcoli inserendo un nuovo valore 
e avere visualizzata la solita tabella con i nuovi valori; V se 
vogliamo far girare di nuovo il programma ed entrare in altre 
opzioni; “ni n/stop" per uscire dal programma, rientrando in 
ambiente BASiC. 


Sconto commerciale 

Operando questa scelta, come in precedenza, la ricerca 
può essere fatta premendo RETURN quando vedremo lam- 
peggiare una delle cinque seguenti opzioni: 

■ sconto commerciale; 

■ montante; 

• valore attuale; 

• tasso d'interesse; 

• perìodo dt tempo; 

• Sconto commerciale. Con la scelta dì questa opzione, sarà 
necessario inserire il valore del montante o debito da estin- 
guere, del tasso 6 * interesse e del periodo di tempo di anticipo. 
Indichiamo con ‘'Se” lo sconto commerciale: con "m" il mon- 
tante o debito da estinguere; con "c 1 ' il capitale o valore 
attuale: con "i" il tasso d'interesse: con "n" il periodo di tempo 
di anticipo; avremo la seguente formu fa: 

Sc=nTi*n 

• Montante, In questo caso sarà necessario immettere r dati 
del capitate o valore attuale, del tasso d'interesse e del perio- 
do dì anticipo: 

m=c/(1-i*n) 

• Valore attuale . Dobbiamo immettere, oltre al valore del 
montante, anche i valori del tasso d'interesse e del periodo dì 
tempo; 

e-m*(1-iYi) 

Tasso d'interesse. Il computer chiederà dì inserire il capitale 
originario o valore attuale, oltre all'Importo dello sconto com- 
merciale e del periodo di tempo; automaticamente verrà ricer- 
cato il valore del montante mediante questa semplice 
formuletta: 

m=c+Sc 

Ovviamente, una volta ottenuto il valore del montante o 
debito da pagare alla scadenza, si potrà inserire la formula per 
la ricerca del tasso d'interesse: 

ì=Sc/{m‘n) 

■ Periodo dì tempo. Sarà necessario inserire, oltre all'impor- 
to dello sconto commerciale, anche il valore del capitare pre- 
stato o valore attuale e, naturalmente, il tasso d'interesse o r 
per meglio dire, il tasso di sconto: 
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n=Sc/(c"i) 

A questo punto possiamo tare due esempi e vedere come il 
programma gestisce la ricerca dello soonto commerciale; so- 
no relativi a un periodo dì anticipo dì un anno e di sei mesi. Con 
il pnmo sottolineeremo la differenza esìstente tra interesse 
semplice e sconto commerciale; con il secondo confrontere- 
mo invece la differenza tra sconto commerciale e sconto 
razionale. 

Supponiamo, nel primo esempio, di voler pagare con un 
anno di anticipo un debito di Ut. 1,111,11 1, con un tasso di 
sconto de! 10%: la tabella sarà così definita; 


Capttalt£2. sompllce-ScontocEMnfiiflrcIfllo 


Sconto commerciale Utili 

Montante 1111111 

Valore attua le 1 QOOQO0 

Tasso d'interesse 10.000% A 

Periodo di tempo la Om Og 


Confrontando gli importi del montante e dello sconto com- 
merciate, con i nspettivi montante e interesse semplice dell'e- 
sempio visto in precedenza, noteremo una differenza di Lif, 
1 1 .1 1 1. Ciò è dovuto al diverso modo di calcolo effettuato nei 
due casi; infatti nel primo, i calcoli si basano partendo dal 
debito effettivamente richiesto, cioè dal valore attuale. Nel 
secondo caso, rifacendoci a quanto affermato prima a propo- 
sito della differenza tra sconto commerciale e razionale, i 
calcoli vengono fatti partendo dall'importo del debito da salda- 
re, o montante, il quale è già comprensivo degli interessi 
passivi calcolati sul prestito originario. 

Il secondo esempio parte da un montante uguale a quello 
relativo allo sconto razionale Supponiamo di voler estinguere 
oggi, con sei mesi di anticipo, un debito di Lit 1,100 .000 a un 
tasso di sconto del 10%; la tabella sarà la seguente: 


Capitali*!. som plico- Sconto commerciale 


Sconto commerciale 55000 

Montarne iiooooo 

Valore attuale 1M500C 

Tasso rf interesse 10.000% A 

Periodo di tem po Oa 6m 0g 


Sconto razionale 

Abbiamo già visto le differenze tra i due tipi di sconto e ne 
discuteremo ancora in seguito Per ora limitiamoci a passare 
nella seconda pagina di testo, dopo aver digitato RETURN al 
lampeggiare dell'opzione ‘sconto razionale" In questa se- 
conda pagina di testo, vedremo le cinque opzioni: 


« sconto razionale; 

• montante; 

» valore attuale; 

• tasso d’interesse; 

9 periodo di tempo. 

Anche in questo caso, prima dì tutto, vedremo le formule 
relative ai punti sopra descritti. 

9 Sconto razionate. Immetteremo I valori del montante, del 
tasso di sconto e del periodo dì tempo di anticipo, Ricordiamo 
ancora una volta i parametri per la comprensione delle formu- 
le: "Sr" corrisponde allo sconto razionale; "m" al montante, o 
debito da estinguere; V al capitale pagato anticipatamente o 
valore attuate; ,4 i” al tasso d f Interesse o, per meglio dire, al 
tasso di sconto: “ri 1 al perìodo dì tempo di anticipo. La prima 
formula sarà così strutturata: 

Sr=(m“i‘n)/(1+i'n) 

9 Montante, Immetteremo i valori del capitale originario o 
valore attuale, del tasso di sconto e del periodo di tempo di 
antìcipo: 

m^c’JI+i'f 1 ) 

• Vatore attuale. Avremo bisogno dei valori del montante o 
debito da estinguere, del tasso di sconto e dei periodo di 
tempo: 

c=m/(1-H‘n) 

9 Tasso d’interesse. Il computer ci chiederà di Inserire i valori 
dello sconto razionale, del capitale originario evalore attuale e 
del periodo di antìcipo; 

i— Sr/(c*n) 

9 Periodo di tempo. In quest’ultimo caso dovremo immettere i 
dati visti sopra, ad esclusione del periodo di tempo, da ricerca- 
re; al suo posto inseriremoo il tasso di sconto; 

n=Sr/(c‘ì) 

Passiamo agli urtimi due esempi: nel pomo vedremo un 
periodo di anticipo di un anno e un montante di Lit, 1 100,000; 
nel secondo, con io stesso montante, considereremo un pe- 
riodo di anticipo di sei mesi. 

Nel primo caso vogliamo conoscere l'importo dello sconto 
razionale, anticipando di un anno il pagamento di un debito di 
Lit, 1. 100/000. ad un tasso dì sconto del 10%; (I computer ci 
mostrerà la seguente tabella: 
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CapHslizz. sempiì co- Sconto razionalo 


Sconto razionale 
Montante 
Valore attuale 
Tasso d" interesse 
Perìodo di tempo 


100000 
tiooooo 
1000000 
10,000% A 
laOmOg 


Se andiamo a ricontrollare la tabella dell'esempio relativo 
all'Interesse semplice, noteremo che tutti i valori sono uguali, 
a dimostrare la razionalità del metodo seguito e la perfetta 
rispondenza delle formule impostate, invece noteremo una 
sostanziate differenza se paragoniamo la suddetta tabella con 
quella relativa, per un anticipo di un anno, allo sconto commer- 
ciate. Noteremo, infatti, che disponendo del lo stesso capitalo 
valore attuale di Ut. 1 .000.000, non salderemo io stesso debi- 
to fra un anno, nonostante che il tasso di sconto sia identico, 
Questo dimostra ulteriormente la non razionalità dello sconto 
commerciale. 

Nel prossimo esempio, relativo a un anticipo di soli sei mesi, 
noteremo, proporzionalmente, una differenza sempre più 
bassa; quindi minore è il perìodo di anticipo, proporzionalmen- 
te inferiore sarà la differenza tra fo sconto commemiaie e lo 
sconto razionale. 


Nel secondo esempio pagheremo con un anticipo dì sei 
mesi, ad un tasso di sconto dei 10%. un debito complessivo di 
Ut. t, 100.000: 


Capitallzz* semplice-Sconto nKkmate 


Sconto razionale 
Montante 
Valore attuale 
Tasso d’interesse 
Perìodo di tempo 


523S1 
1100000 
1047619 
10.000% A 
Qa6m0g 


Lasciamo -a voi le dovute considerazioni e le scelte 
conseguenti 

Spendiamo ancora poche parole per il programma. Coloro 
che, pazientemente, hanno digitato i listati precedenti, do- 
vranno inserire solo le linee non evidenziate da riquadri. 
Coloro che intendono completare il programma di matematica 
finanziaria, per far girare i listati presentati mese per mese, 
almeno fino a che non arriveremo all'ultima puntata, dovranno 
di volta in volta cambiare valore alla variabile di riga 54: 


54 z=1 - per la capitalizzazione semplice; 
54 z=4 - per il piano d'ammortamento; 

54 z— 3 - per i pagamenti rateali. 


1 pnk r 7 qd sp 

2 P0KE 53280,1 1SP0KE 53281, 11 SPR 
1 1^ " [ VERDE 3 * ; CHR* < 14 > J CHR$< 8 ) 

10 CLR 

11 B$C 1 )=* *M4UALE' 

12 B$(2 )=* •EMESTRALE* 

13 8$C3>= " WJADR I MESTRALE * 

14 B$C4 )= ‘ | RIMESTRALE" 

15 B*(5> = * I IMESTRALE" 

1S B$CB)=" NENSILE" 

18 fì$C9>=" |ASS0 O’ INTERESSE" 

19 B$<0) = " I ASSO D’INTERESSE " 

20 fì*<0) = " CCLEAR3 \*| 

21 fì$< 1 >="-APITALIZZ. SEMPLICE" 

31 P=6 !BB=1 iGG=l :0=4 5L=2:K=GG!M=3 

32 O^a’IHOME] 117 00UNJ" 

48 QG=6 

54 2 = 1 

55 fì$C0) = "[CLEAR3’ , +A$CZ:> 

60 U=4 5 A =Z s fì2 =fì +2 

90 ON AGOTO 100,2000,300,400,500 
98 FOR PQ=LEN<A*C4) > TO 2B:A*C4>= 
fì$C4>+* * t NEXT t RETURN 


100 U= 1 3 

101 REM 

110 A4C1>=" INTERESSE SEMPLICE" 

120 fì$<2 ) = " •CONTO COMMERCIALE" 

130 A$C3 > = * •CONTO RAZIONALE " 

170 FOR Z =0 TO 3tPRINTA*CZ) SPRINT: 
PR I NT : MEXT : QQ=4 : GOSUB 9300:A1 = 
Z 

175 GOTO 1100 
700 PRINTA*C0):ENO 
1 100 ASC 1 )=A$CA1) 

1103 PR INTASCO )JA*U) SPR INTsPRINT 

1104 fì$C2)= " \0NTANTE 

1 106 A$C3 ) = ‘ XALORE ATTUALE 

1108 A$C4)=" | ASSO D’INTERESSE “ 

1109 A$C5)= ‘ “ER10D0 DI TEMPO * 

1110 FOR Z=1 TO 5:PRINTA*<Z ) :PRINT: 
PRINT:NEXTiQQ=G 

1113 A2=3S GOSUB 9900 

1170 PR INTASCO JfAUCfìl): GOSUB 12405: 
GOSUB 8559 

1171 IF Z = 1 AM3 A 1 = 1 THEN PRINTMDO 
UM3 "A$C3)J ì INPUT AC3) SGOTO 118 
0 
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1172 IF Z = 1 AND Al >1 THEN PRINT"CDO 
W]’fit(2); ! IhFUT A<2> SCOTO 118 
0 

1173 IF Z=2 THEN PRINT" IDOLNl *A$<3> 
; : IhPUT A ( 3 ) : GOTO 1180 

1174 IF Z =3 THEN PR INT“ [DOWNJ " A$<2 ) 
;t INPUT A (2): GOTO 1180 

1175 IF Z =4 THEN PR I NT ” [ DOWN ] " A$< 3 ) 
;s INPUT A<3) SPRINT" [DOWN] "A$< 1 
);s INPUT A(1 )160T0 1190 

1178 IF Z =5 THEN PRINT" [DONNI "A$<3) 
;i INPUT A<3) SPRINT" CD0UNJ"A$<1 
)js INPUT A<1) 

1180 PRINT" [DONNI "A* <4 ) ; '■ INPUT AC4) 

1190 IF Z =*5 THEN 1198 

1193 PR INT" [DONNI "A$<5); s INPUT T0*s 
IF LEN(T0$><>6 THEN PRINT" £3 U 
P ] 0 s GOTO 1193 

1195 IF LEFT*<T0$,2>>‘99" OR MID$<T 
0$,3 ,2 ) > " 12“ OR RIQHT*<T0*,2)> 
"31" THEN 1199 

1196 GOSUB 80 IBS A(5>=T0 

1198 GOTO 15000 

1199 IF Z < >5 THEN PRINT" [3 UPI"iGOT 
0 1 193 

5800 PRINTO* 

5805 IF A =4 THEN 5815 

5806 IF A2=9 AND UU=0 THEN 5812 


5810 PRINT" 14 OOUNHRVSJ -_!» 

-■IT -=-// *=T-%/l IR 

VOFFI "; s RETURN 

5812 PRINT" 14 DOWNHRVS1 *1» 

— = ♦ 1 tR 

VOFF1"; s RETURN 

5815 PRINT" £4 DONNH RVS] •!*-”= + 
i -_*_=ir -=-// IR 

VOFFI"! S RETURN 


8010 T0=VAL<LEFTS(T0*,2))+VAL<MIO*< 
T0$,3,2> J/12+VAL (R IGHT$<T0$,2 ) 
)/360S RETURN 

8550 R$=STR$ (INTCR+.5)) 

8551 FOR DP=LEN(R*)-1 TO 9sR*=" "+R 
$ s NEXT : R$=R 1 GHT$< R* , 9 > i RETURN 

8552 R$=R IGHT¥(R$,8 > + "Ji" s RETURN 

8553 IF A2=5 OR A2=6 OR A2=7 THEN 8 
556 

8554 R$=LEFT*CR*,?):FOR QP=LEN<R$>- 
1 TO 6 s R$= " "+R$ifvEXT 

8555 R*=R IGHT$<R4 ,6 ) + "X" +LEFT$(B$(B 
B ) ,2 > 8 RETURN 

8559 PRINT" [HOME H3 OOfeNIR ICERCA "A 
*£Z) SPRINT: PRINT: RETURN 


9900 Z=0:Z*="£DOI*MI":Z2=0 
9910 GOSUB 16650 
9930 ZZ =Z2 + 1 : GOTO 9990 
9950 ZZ=ZZ-1 

9960 IF ZZO THEN ZZ=QQ-1 
9990 IF ZZ = >QQ THEN ZZ=3 
10000 PRINT" [HOME! "SFOR YY=I TO 2Z:p 
RINTsPRIMTsPRINTshEXT 
10003 PRINT" [UPHRVS3 "A$<ZZ) 

10002 FOR NN=1 TO UsGET UJN$ 

10003 IF WW$="gr THEN 700 

10005 IF WW*=CHR*U3) THEN Z=ZZsRETU 

RN 

10007 IF UIW*="£UP]" THEN 10100 
10003 IF NN*="CDONNJ" THEN 10100 
10009 IF U* 13 THEN 10090 
10090 hEXT 

10100 FRI NT "[HOME]" SFOR YY=J TO ZZSP 
RI NT SPRINT*- PRINT: NEXT 

10101 PRINT" £UPHRVOFF3 n A*CZZ > 

10102 FOR NN= 1 TO UsGET WW$ 

10103 IFNN$="1| 0 THEN 700 

10105 IF NN$=CHR$C13> THEN Z=ZZiRETU 

RN 

10107 IF MW$="[UP1" THEN 9950 

10108 IF UI4$- " [DONNI " THEN 9930 

10109 IF U= 1 3 THEN 10190 
10190 NEXT: GOTO 9930 

12000 IF A2=3 OR A2=4 THEN GOSUB 124 
00 

12001 PR INT" [HOf'E 3 " s FOR YY=1 TO ZZsR 
R INT: PRINT iPRINTsNEXT 

12015 PRINT" [UP3"A$(Z>; SFOR QP=LEN(A 
$(Z)> TG 3B SPRINT" ";sl«XT.*PRI 
NT 

12020 IF CA2=3 OR A2*4 OR A2*9> AND 
Z=QQ-1 THEN 12075 

12066 PRINT" £UP3"A$<Z )? s INPUT A<Z):G 
OTO 12088 

12075 PRINT" [UPI "A*<Z )J s INPUT T0$: IF 

LEN<T0$><>6 THEN PR INT" [UP 1 “ : 
GOTO 12075 

12076 IF LEFT$< T0$,£ ) > “99 “ OR MID*<T 
0*,3,2>>"12" OR RIGHT*<T0*,2>> 
"31" THEN 12075 

12077 A (QQ- 1 ) =VAL (LEFTS <T0* ,2 ) > +VAL < 
MID$CT0$ ,3 ,2 ) I/12+VAL (RIGHT$(T 
0*,2))/360 

12078 A(QQ-I)=A(GQ-1)*K 
12038 ON A2G0T0 610,690 
12089 RETURN 

12100 IF A2=3 THEN PR INTA*(0 ) i A* ( 1 ) s 
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PR I NT : PR I NT : BOTO 12106 

12101 1F A2=4 OR A2 =3 THEN PR INTASO 
)BS(BB) :PRINTBSC0J" “BSCBB) :PR 
I NT ! GOTO 12 106 

12102 IF A2=5 THEN GOSUB 3200:GDSUB 
360: FOR 2 = 1 TO QQ- 1 ! PR INTASO ) 
1CSCZ> SPRINT’ [DOUW1 "!NEXT 

12103 1F A2=5 THEN PRINT”[2 UP]"BSCB 
B ) : GOTO 12 109 

12104 PR INTASCO) SPRINTAR INT 

12105 IF A2C3 THEN FOR 2=1 TO QQ-HP 
R1NTA$<Z);ACZ>"X" :PRINT:PRINT: 
NEXT:GOTO 12103 

12106 FOR 2=1 TO QQ- 1 :PRINTA$<2 ) JCSC 
2 ) SPRINT SPRINT: NEXT 

12103 IF A2=4 OR A2=9 THEN PR INTASCO 
Q1CSCQQ ) ì IF A2=9 AND UU=I THEN 
PR INT" £2 DONNI "ASCQQ+1 )CS(QQ+ 
1 ) 

12109 GOSUB 5800 

12200 GET UJUJS: IF UWS= B " THEN 12200 

12201 IF A2=9 ANO UU=0 THEN 12206 

12202 IF NU1S= 11 R " THEN RUN10 

12204 IF UWS="a" THEN 700 

12205 IF l-MS^S* THEN OPEN 1,4,7:PRI 
NT# 1 : GOTO 12300 

12206 IF A2*9 AND (UUtS= * CDOWNJ ' OR W 
U1S= ■ [UP 1 * ) AND uu=0 THEN UU=I: 
RETURN 

12207 IF UU$= , [OOUt'N" DR WWS="EUP]* 
THEN GOSUB 9900: GOTO 12000 

12208 IF A2=9 AMD U4*=" * THEN RETUR 
N 

12208 GOTO 12200 

12300 IF A2= 1 OR A2=2 THEN 12380 

12301 IF A2=? THEN CMD 1:G0SUB 14210 
s PR INT# 1 : GOTO 12360 

12302 IF A2=9 THEN 12375 

12303 IF A2=4 OR A2>6 THEN PRINT#1,A 
S<0)BS<BB ) :PR INT# 1 ,B$C0) " "BSC 
BB ) '■ GOTO 12306 

12304 IF A2=5 THEN CMD HGOSUB 3200: 
GOTO 12350 

12305 PR INT# 1 , ASC0 ) J ASC 1 ) 

12306 FOR Z = 1 TO QQ- 1 : PR INT# 1 ,A$<2 ) ; 
CSCZ ) tNEXT 

12308 IF A2=7 THEN FOR 2=4 TO QQ-l:P 
RI NT# 1 r ASCZ ) J ACZ ) :NEXT:GOTO 12 
360 

12309 PRINT#1 ,ASCQQ);CSCQQ) :GOTO 123 
60 

12350 FOR 2=1 TO QQ-1 :PR 1NTASC2 >;CSC 


Z ) :NEXT:PRINTBSCBB> :PRINT# ) 
12360 CLOSE 3 : OPEN 1 0 ,4 , 30 : PR INT# 10 : 

CLOSE 30 
12370 GOTO 12109 

12375 CMD 1 :PRINTASC0) :GOSUB 4195 

12376 FOR OD= 1 TO W: GOSUB 4315:NEXT: 
GOSUB 16660 

12378 FOR DD= 1 TO 4 : PR INTASCDO )C$CDD 
) : l'CXT : PR INT# 1 s GOTO 12360 
12380 FOR Z = 1 TO QQ- I : PR INT# 1 , ASC2 ) ; 

ACZ)"X*:f'£XT: GOTO 12360 
12400 IF ZOGG-1 THEN RETURN 
12405 PRINTOS" [5 DOUWI ERVSI ESEM 9 
IO 9 MES I E 23 GIORNI = 000329 
[ RVOFF 3 " : RETURN 

14150 T9= INT < T0 > : T6= CT0-T9 ) * 12 : T8= IN 
TCT6) :T5= CT6-T8) *30: T7=INTCT5+ 
.5) 

14151 T9S=R IGHTSCSTRSCT9) ,2):T8S=RIG 
HTSCSTRSCT8) ,2) : T7S=R IGHTSCSTR 
SCT7 > ,£ ) 

14152 RS=T9S+ "A" +T8S + “ M ” +T7S+ " G " : RET 
URN 

J 5000 FOR PQ= 1 TO 5:ACPQ)=ACPQ) + .000 
0001 :NEXT 

15001 ON A ÌGCISUB 15100,15200,15300 

15002 FOR PQ= 1 TO 3*. R=A CPQ ) : GOSUB 85 
50 : CSCPQ ) =R$ ' NEXT 

15004 RS=STRSC A C4 > ) : GOSUB 8553:C$C4) 
=RS 

15006 T0=A C5 ) : GOSUB 14 150 :CSC5 >=RS 
15009 GOSUB 12 100 : GOTO 15500 
15100 ON 2 GOSUB 16100,16100,16300,16 
400,16500 
15110 RETURN 

15200 ON 2 GOSUB 16110,16210,16110,16 
410,16510 
15210 RETURN 

15300 ON 2 GOSUB 16120,16220,16120,16 
420,16520 
15310 RETURN 

15500 ON A1GOSUB 15600,15700,15600 
15509 GOTO 15002 

15600 ON 2 GOSUB 16000,16010,16100,16 
100,16100 
15610 RETURN 

15700 ON 2 GOSUB 16030,16110,16210,16 
110,16110 
15710 RETURN 

16000 A C3 ) =A < I )/CAC4)/100*AC5)):6OSU 
B 16200: RETURN 

16010 AC3>=A(2>/C1 +AC4>/100*AC5)):6O 
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SUB IBI 00: RETURN 

16030 A<23*A( 1 3/(A(4>/100*A(53): GOSU 
B 16310: RETURN 

3 6 1 00 A< 1 3*A<33*(AC4)/100*A(533 !GOSU 
B 16200: RETURN 

16110 A< 1 3=A<2>*AC43/100*A<53:GOSUB 
1 63 1 0 : RETURN 

16120 A(13=CA(2)*A<43/100*A<533/C1+A 
(43/100*A<53 ) SGDSUB 163205RETU 
RN 

16200 AC23=A(33*< 1+AC43/100*AC5) 3 :RE 
TURN 

36210 A<23=A<33/<1-A<43/100*AC5)3:GO 
SUB 161 10: RETURN 

16220 A(23=A<33*( 1 +A <4 >/100*A <5 3 ) :GO 
SUB 16 120: RETURN 

16300 AC3)=A<2)/< 1 +A<4)/100*AC5) ) :GD 
SUB 16100: RETURN 

16310 A<33=A<2>*( 1 -A(43/100*AC5>3:RE 


TURN 

16320 A<3)=A<23/( 1 +A (4 >/ 100*A <5 3 3 s RE 
TURN 

16400 A (4 3 =A< 1 3/CAC33 *AC53 3*180:GOSU 
B 16200: RETURN 

16410 A(23=A<3)+AC13iA(4)=AU3/<A<23 
*A<5 3 3 *100: RETURN 

16420 AC4)=A< I )/( A <3 3 SA (5 3 ) * J 00 : GOSU 
B 16220: RETURN 

16500 A(53=A<:i3/CA<33*AC43/100):GOTO 
16200 

16510 A(23=A<1 3+A(33:A<53=A<I3/<A<2> 
*A<4)/100 3 sRETURN 

16520 A (5 3 =A ( 1 >/<A<3 3 *AC4 3/100) : GOSU 
B 16220: RETURN 

16650 FRINTO*" [5 DOWN] ERVS3 

-,//mm = — >/~ ERVDFF ] 

* : RETURN 
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Ed ora 

faccio Quark 

di Mauro Massetti 

Come animare sul video 
le tue rappresentazioni tridimensionali. 


Tutti abbiamo avuto, almeno una volta, 
occasione di vedere la sigla iniziale di 
Quark. In essa appaiono grafici nei quali 
il senso della tridimensionalità è dato 
dalla torsione di una maglia costituita da 
segmenti intersecarla t fra loro orto- 
gonalmente. 

Questo mezzo viene oggi sfruttato per 
rappresentare superfici dì vario genere 
nei campi più disparati La diffusione di 
questo metodo è stata resa possibile, In 
quanto ormai economicamente conve- 
niente, solo grazie ai calcolatori elettro- 
nici con programmi predisposti per la 
grafica. 

Sarebbe infatti troppo oneroso ' mani- 
polare" superici complesse disegnan- 
dole manualmente con eguale tecnica e 
pensare inoltre di poterne variare l’an- 
golazione di vista assonometrica o altri 
parametri, 

E 1 peraltro intuibile che, per poter ge- 
stire matematicamente la sovrapposi- 
zione di parti più vicine airosservatore 
rispetto ad altre, vengano richiesti sia 
una memoria considerevole che algorit- 
mi complessi. 

Indubbiamente, quanto realizzato con 
essi offre caratteristiche di flessibilità 
quasi assoluta e di velocità di trasforma- 
zione, ad esempio spostamenti relativi 
di alcune parti del grafico e/o rotazioni di 
lutto o parte di esso, gestendo in modo 
diretto quanto viene visualizzato sullo 
schermo, 

A questo mondo, però, tutto è com- 
promesso é t in informatica, il compro- 
messo per eccellenza è tra memoria di- 


sponibile e tempo di esecuzione di un 
programma. 

Infatti, maggiore memoria si ha a di- 
sposizione per la gestione di valori asse- 
gnati a variabili da utilizzare in un algorit- 
mo, minore è il tempo di esecuzione del- 
lo stesso, non dovendo effettuare ope- 
razioni su periferiche, motto più lente del 
computer stesso. 

Sebbene sia un ottimo home compu- 
ter sotto tutti gli aspetti, il C64 possiede 
una memoria limitata, comunque ben al 
di sotto dì quella necessaria per un sìmi- 
le lavoro e, nel caso particolare, se si 
effettuano elaborazioni con gestioni di 
algoritmi matematici più o meno 
complessi. 

Conviene allora escogitare qualche 
‘'stratagemma 1 ' e ricorrere a compro- 
messi, come ad esempio vincolare alcu- 


ne opzioni di spostamento relativo e ac- 
cettare di "perdere" più tempo, in quan- 
to quasi tutte le operazioni vengono ef- 
fettuate su video. 

Vediamo come. Se pensiamo al video 
come a un foglio di carta e cominciamo a 
tracciare i profili altìmetrici in corrispon- 
denza alle coppie di coordinate più lon- 
tane per arrivare a quelle in primo piano, 
ci accorgiamo che i più vicini coprono i 
più lontani se questi ultimi si trovano a 
una quota relativa inferiore e quindi de* 
vono essere cancellati per non creare 
confusione. 

Applichiamo questa stessa metodolo- 
gia al nostro caso, 

Fissiamo le coordinate dell'angolo su- 
periore sinistro, tracciamo la linea di fon* 
do, poi tutti i segmenti congiungenti I 
punti a coordinate intere di questa con 



« 
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quelli della linea subito anteriore (non 
ancora tracciata) e quindi cancelliamo 
tutto quanto è presente al di sotto sullo 
schermo. 

Si traccia la nuova linea, si cancella 
tutto al di sotto, si tracciano i vari seg- 
menti, si cancella come prima e cosi via 
sino al completamento del grafico. 

Appare evidente che il grosso de! la- 
voro viene effettuato su video, liberando 
così da quest'onere la memoria centra- 
le. La routine dì grafica vera e propria si 
riduce infatti a una quindicina di linee, 
ben poca cosa per la gesiione dì una 
griglia dì 41*41 punti. 


Il programma 

Dalla linea 1000 alia 1460 sono allo- 
cate le REM dì intestazione e di com- 
mento ai significato delle variabili 
utilizzate. 

Alla linea 1470 risiede il dimensiona- 
mento delle due matrici utilizzate (una 
per lo stoccaggio dei dati e l'altra di sup- 
porto per la rotazione del grafico). 

Dalla lìnea 1480 alla 1580 è allocato il 
menu principale con le varie opzioni. 

Alla linea 1620 si trovano le istruzioni 
dì fine programma. 

Dalla linea 1 670 alla 1 770 vi è la routi- 
ne di inserimento dei valori relativi alle 
quote in corrispondenza delie interse- 


zioni della maglia e la loro memorizza- 
zione su fife. 

Dalla lìnea 1820 alla 1960 è allocata la 
routine per eventuali variazioni dei dati 
di un qualunque fife già realizzato. 

Nel listato proposto si fa uso di drive, 


Alla linea 2140 inizia la routine grafi- 
ca: sino alla 2130 si trovano le istruzioni 
di eventuale caricamento da file dei dati 
e dì calcolo delle costarti; dalla 2140 
alla 2460 sono allocate le istruzioni per ìf 
calcolo delie coordinate di inizio e fine 
linea 3|per chi ha una stampante grafi- 
ca, di hard-copy e di ritorno al menu 
principale. 

Dalla 2510 alia 2570 si trovano le 
istruzioni per il tracciamento deile linee. 

Dalla 2620 alla 2810 si allocano te 
istruzioni di stampa dei file di dati. 

Alla 2850 si trova una subroutine di 
gestione video. 


ma se possedete solo il tape, è sufficien- 
te sostituire iJ valore 8 con 1 . 

Dalla lìnea 2000 alla 2100 sono allo- 
cate una subroutine di gestione video e 
una per la scrittura su file dei dati 
immessi. 


Dalla 2890 alla 2960 è allocata la su- 
broutine di rotazione. 

Quest 1 ultima è ottenuta ruotando il 
piano cartesiano del grafico, supponen- 
do i dati caricati su una matrice visualiz- 
zabile con le ascisse crescenti da sini- 
stra a destra e le ordinate crescenti dal- 
l’alto in basso (figura 1). 

Nella fase di inserimento, digitando RE- 
TURN a vuoto, si terminano le colonne 
prima del valore 41 dell'indice. Per te 
linee si ottiene lo stesso risultato digitan- 
do un asterisco seguito da RETURN. 

Viene infine presentato il cross- 
reference del programma in esame. 
Ricopiamo ora i valori su una matrice di 
supporto tramite le relazioni: ascissa 
nuova posizione = ordinata vecchia po- 
sizione e ordinata nuova posizione = 
42-ascissa vecchia posizione (figura 2), 
dove ì valori fra parentesi sono relativi 
alla figura 1. 

La creazione dei file può essere orga- 
nizzata sovrapponendo a una planime- 
tria, dotata di apprezzamenti attìmeirici. 
un reticolo a maglia quadrata e inseren- 
do i dati al ti metrici in corrispondenza 
delle intersezioni del reticolo stesso (fi- 
gura 3), o con semplici modifiche ad al- 
cuni blocchi di programma, fornendo 
equazioni di grado voluto, 
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CROSS REPEREMCÉ 
PROGRAM"» * TPCOlGRftPH 


— t--— - " 

VAR. t LI*EA OEU PROGRAM^ 


ft* 

i 

1 

1670 

170O 

17 10 

1720 

1730 


ex 

1 

£ 14* 

£380 

2400 

£4 10 

2420 


CY 

1 

2M0 

£390 

£400 

24 10 

£4£0 


F* 

f 

t?se 

1940 

1990 

£070 

£210 

2E30, 


i 

£700 






FF* 

i 

1 630 

1040 

1050 

1890 

£130 

2190 


! 

aaoo 

£2 10 

££30 




FP 

I 

£ ISO 

£170 

2 190 

2320 

£330 


G* 

1 

1030 

£070 

£700 

£7 10 



K* 

f 

£770 

£700 

£790 

2800 



H< 

f 

1470 

1730 

1970 

1920 

£030 

£260 


1 

££00 

£300 

£310 

2390 

£400 

24£0 


? 

£77© 

£790 

23£0 

£930 



H ( ( 

i 

14 70 

£320 

£330 




HN 

! 

£140 

£310 

£330 




HK 

1 

£140 

£300 

23£0 




I 

» 

1670 

1700 

t ?£0 

1730 

1740 

I960 


! 

1070 

I960 

£080 

2090 

£iOO 

2230 


» 

£260 

£270 

2280 

2300 

£310 

2320 


f 

£370 

£380 

2400 

£4 IO 

2310 

£740 


1 

£760 

£770 

2730 

£900 

2910 

£920 


r 

£930 

£340 

£950 

2960 



J 

t 

1670 

1700 

1710 

17£0 

1730 

1740 


; 

1960 

I370 

1390 

2O80 

£090 

2 100 


1 

£230 

££60 

££70 

££80 

£300 

£310 


! 

£320 

2370 

£390 

2390 

£400 

24 LO 


1 

£4£0 

£430 

2770 

2780 

2790 

£000 


! 

£910 

£320 

£930 

£940 

2950 

£360 

L* 

1 

£730 

£760 





RJ 

t 

£140 

2320 

£330 




R2 

1 

£ 140 

3330 

2350 

2360 



rtp 

1 

£330 

2360 

£3B0 

£400 

£4£0 


£■ 

1 

13 30 

1540 

1940 

1350 

£440 

2430 


t 

£630 

£640 

£690 




se 

l 

1340 

1558 

1360 

1370 

1500 


T 

| 

££90 

£770 

£790 




va 

f 

££30 

2260 





X 

! 

1920 

£520 

2330 

£340 

2530 


XF 

* 

£330 

2400 

£4£0 

£320 

2530 

2580 

XI 


£390 

£400 

£4£0 

2320 

2330 

2380 

V 

f 

I320 

2530 

£340 




YF 

1 

£360 

£400 

2420 

2530 

£560 


YI 

f 

£330 

2400 

£420 

2530 

£390 



1000 REM 
1010 REM 
1020 REM 
1030 REM 
1040 REM 
1050 REM 
10G0 REM 
1070 REM 
1080 REM 
1090 REM 
1 100 REM 
I I 10 REM 
1 120 REM 


******** **************** 


* PROGRAMMA DI GRAFICA * 

* TRIDIMENSIONALE * 

* PER C64 * 

* (CON SIMONS' BASIC) * 

* * 
t AUT.i MAURO MASSETTI * 
************************ 

* ELENCO VARIABILI * 

* A* =QUQTA IN STRINGA * 

* CX =COS TANTE GRAFICA * 

* ASCISSE « 

* CY =COSTANTE GRAFICA # 


I £30 

REM 

* 


ORDINATE * 

1 140 

REM 

* 

F$ 

«NOME FILE DATI * 

I 150 

REM 

* 

ff$=none: file dati * 

1 £60 

REM 

* 

FP 

=F ATTORE PROPOR- * 

i 170 

REM 

* 


ZIONE X/Y * 

1 £80 

REM 

* 

6$ 

=STR 1NGA NOME FILE* 

1 130 

REM 

* 

H$ 

«QUOTA IN STRINGA * 

1200 

REM 

* 


PER INCOL. STAMPA* 

1210 

REM 

* 

HC 

«QUOTA * 

1220 

REM 

* 

HI < =QUOTA SU MATRICE * 

1230 

REM 

* 


DI “AZIONE * 

1 240 

REM 

* 

HN 

«QUOTA MINIMA * 

1 250 

REM 

* 

HX 

«QUOTA MASSIMA * 

£260 

REM 

* 

I 

«INDICE MATRICIALE* 

1270 

REM 

* 


PER S * 

1280 

REM 

* 

J 

= IND ICE MATRICIALE* 

1230 

REM 

* 


PER -iS * 

1300 

REM 

* 

L$ 

«STRINGA DI SPA2I * 

1310 

REM 

* 

RI 

=RAPP . PROP , QUOTE >0 * 

1320 

REM 

* 

R2 

«RAPP.PROP. QUOTE <0* 

1330 

REM 

* 

RP 

=RAPP. PROP. MINIMO * 

1340 

REM 

* 

SU 

«VARIABILE INPUT * 

1350 

REM 

* 

se 

VARIABILE SCELTA * 

£360 

REM 

* 

T 

VARIABILE DI -! * 

1370 

REM 

* 

X 

«ASCISSA * 

£ 380 

REM 

* 

XF 

«ASCISSA FINALE * 

1330 

REM 

* 

XI 

«ASCISSA INIZIALE * 

1400 

REM 

* 

Y 

«ORDINATA * 

1410 

REM 

* 

YF 

«ORDINATA FINALE * 

1420 

REM 

* 

YI 

«ORDINATA INIZIALE* 

1430 

REM 

************************ 

1440 

REM 

* 

□IMENSIONAM. MATRICI * 

1450 

REM 

t 

E 

MENU 1 PRINCIPALE * 

1460 

REM 

************************ 

1470 

DIM HC41 ,41 >,HK4! ,41 ) 

1480 

PRIMI 

■ « 

CCLEARH2 D0UN3 1 10 RIGHT 


]*** 

hENU 1 

TREDI *** 13 COLMI » 

1 430 

PRINT 


"i- 

INSERISCE I DATI! DOW 


NJ” 




1500 

primi 

i ** 


■s- 

MODIFICA I DATI [DOWN 

1510 

J 

PRINT 


-3- 

VISUALIZZA IL GRAFIC 


OIDOLNI ■ SPRINT, "4- ROTAZ IOInE 9 
0 GRAD I tDOUN] " 


1550 PRINT,* *5- FINE LAV0R0I2 DOLM3 " 
: FRI NT, 'FATE LA SCELTA' 

1530 GET S*: IF S*=' n THEN 1530 
1540 SC=ASC(S*)-48J IF SC< I OR SOS 
THEN 1530 

1550 IF SC=1 THEN 1670 

1560 IF SC *2 THEN 1820 

15?0 IF SC=3 THEN 2140 
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1 580 IF SC=4 THEN 2890 

1530 REM ************************ 

1 600 REM * FINE LAVORO * 

1810 REM ************************ 
1820 PRJMT " TCLEAR ] * : END 
1830 REM ************************ 
1640 REM * R-^ir« INSERIMENTO * 
1850 REM * DATI 01 ALTEZZA * 
1680 REM ************************ 
1870 FOR 1 = 1 TO 41 J FOR J = 1 TO 41: A* 

— un 

1 68© GOSUB 2000 i PR I NT " C 1 1 RIGHT3INS 
ER I MENTO DATI [3 DOUI43* 

1690 PRI NT "FORNI RE L 'ALTEZZA PELATI 
VA ALLA" 

17©0 PR I NT " I NTERSEZ I ONE " ; UJi IfcFUT 
A$ 

1710 IF LEN<AS>=0 THEN J=41!G0TQ 17 
40 

1720 IF A$- rt * “ THEN J=4 1 : I =4 1 : GOTO 
1740 

1730 H ( I , J ) =VAL CB$> 

1740 NEXTJ : NEXT1 

1750 GOSUB 2000 IPR INT" Eli R1GHT1INS 
ERI MENTO DATI £3 D0UW3" 

1 7B0 INPUT "FORNIRE IL NOME DEL F IL 
E: 

1770 GOSUB £620! GOTO 1480 
1780 REM ********* ***** ********** 
1790 REM * R-1INE DI “RIFICA * 
1800 REM * DATI DI ALTEZZA * 
1810 REM ************************ 
1820 GOSUB 2000! PRI NT" C 12 RIGHT3MDD 
IF ICA DATI 13 BONN]" 

1830 INPUT "FORNIRE IL NOME DEL F IL 
E! "IFFSsPRlNT'tDOLMHS RIGHT] 
ATTENDERE PREGO" 

1840 IF FF*=F$ THEN 1880 
1850 GS=FF$+" ,S,R' :OPEN 2,8,2,63 
1860 FOR 1 = 1 TO 4 1 s FOR J=J TO 41 
1870 JNPUT#2,H< I ,J) 

1880 NEXTJ * NEXT I ! CLOSE 2:F3=FF$ 

1390 GOSUB £000 s PR INT ' £ 12 RIGHT3M0D 
IFICA DATI E 3 DObNI* 

1300 PR INT "FORNI RE LE COORDINATE X, 
Y E" 

1910 FRINT"L' ALTEZZA DEL DATO DA VA 
RI ARE" 

1920 INPUT n X r Y,H";X,Y,H<X,Y> 

1930 PR INT " LD0UN3VUG I VARIARE ALTRI 
DATI CS/N>?" 

1940 GET S*:IF 3$="" THEN 1940 


1950 IF S*O p N" THEN 1880 
I960 GOSUB 2820: GOTO 1480 
1370 REM ************************ 
I960 REM * 3UBR-1INE VIDEO * 
1930 REM ************************ 
2000 PRINT" CCLEAR1 IRÌ6HT3 / 


2010 FRUSTI" [RIGHT] ! 

r 

2020 PR INT“ [R IGHT3 

r T2 UP 3 11 ! R 

ETURN 

2030 REM ************************ 
2040 REM * SUBR-^INE SCRITTURA * 
2050 REM * DATI SU FILE * 

2080 REM ************************ 
£070 6S="©0! “+F3+ a ,S,W"SOPEN 2,8,2, 
G$ 

£080 PR INT " l DONNI l 8 R I OH T 3 ATTENDERE 
PREGO" :FOR I = 1 TO 41:F0R J=1 
TO 41 

2090 PR INTH2 ,H ( 3 , J ) 

£100 NEXTJ E NEXT I ! CLOSE 2: RETURN 
2110 REM ************************ 
2120 REM * R-^INE GRAFICA * 
2130 REM ************************ 
2140 HX=0! HN=0 ! CX= 100 ! CY-40 ! R 1 - 1 s R2 
= 1 

2150 GOSUB £850! FRI NT "CE D0HN3 IR IGH 
T3 a ! INPUT "FORNIRE IL FILE DA 
LEGGERE: ,4 ;FF3 

2160 INPUT "ED IL FATTORE DI PROPOR 
Z IONE " J FP 

2170 IF FP< 1 THEN FP=1 
2180 FP-4B/FP 

2190 OPEN 2/6,2 ,FF3+ " ,S ,R 11 ! GOSUB 28 
50 

2200 PRINT" CRIGHT1F ILE : ";FFS:PRINT 
2210 IF F F3=F$ THEN ££50 
££20 PRINT "VUOI VISUALIZZARE I DATI 
CS/N)? 4 * 

2230 GET V3s IF V$=" n THEN 2230 
2240 PR INT* [UP 3 

■ 

2250 FOR 1=1 TO 4 1 *FOR J=1 TO 41:IF 
FF3^F3 THEN PRINT' 4 [2 DQUfgj t? 
RIGHT 3 ATTENDERE PREGO £3 UP3"!G 
OTO 2300 

2260 INPUTB2,H< I ,J) s IF VSO"S" THEN 
PRINTMUP3ATTEM3ERE PREGO ":G0 
TO 2300 

2270 PR INT" £ RIGHT 3 COORDINATE 


54 - Commodore 


E 10 LEFT1- J UJ 
££80 PR INT" IR JGHT] ALTEZZA 

EE0 left]";h< i,j>; "E 

2 UP3° 

2290 FOR T* 1 TO 200=NEXTT 
£300 JF H 1 1 , J ) >HX THEN HX=H<I,J) 
£310 IF H < I f J > <HN THEN HN=H<I,J> 
£320 hEXTj:rCXTI : IF HXO0 THEN RÌ=F 
P/HX 

£330 IF HNO0 THEN R2*ABS CFP/HN) 
£34© CLOSE £ : “ 0,1 
£350 IF RI <R£ THEN RP=Ri:GOTG £370 
£360 RP=R2 :REM Ut RAPP. PRQPORZ . 
*** 

2370 FOR 1=1 TO 40: FOR J=t TO 40 
£380 XI=CX + U-i >*5:XF=XI+5m=-HU, 
J)*RP+CYsYF*-H< I , J + 1 )*RP*CY*GQ 
SUB 2510 

2390 1«XTJiFOR J=1 TO 41 
2400 XF =CX+< J- 1 ) *5 : X I *XF-2 s YI *-H C I + 
t , J ) *RP+CY+3 a YF=-H < I , J ) *RP +G T s 
GOSUB 2510 

24 1 0 hCXTJ I CX=CX -2 : CY=CY+3 1 FEXTI : FO 
R J=1 TO 40 

2420 XMCX+CJ-l >*5!XF=XI+5:YI=-HC41 
,J)*RP+CY:YF=-H<4 1 ,J + 1 >*RP+CY 
£430 GOSUB £5105 NEXTJ : REM *** FINE 
TRACCI PIMENTO *** 

2440 GET SS! IF SS=" rt THEN £440 

2450 IF SS=“P" THEN “O 

£460 "I : GOTO 1480 

£470 REM ************************ 

£480 REM * SOUBR-1INE * 

2490 REM * TRACCIAMENTO % 

2500 REM ************************ 
£510 IF I - ! THEN 2560 
£5£© FOR X=XI TO XF 
2530 Y-YI - INT < < YI -YF )/<XF-X I )*<X-XI 
>) 

£540 “ X,Y,X, 199,0 
2550 NEH TX 
£560 - XI ,Y1 ,XF,YF, 1 
£570 RETURN 

£580 REM ****** ****************** 
£590 REM * SOUBR-^IFE * 

2800 REM * STAhPA DATI DEL FILE * 
£610 REM ***************** ******* 
2620 PR1NTM2 DOWNJVUOI STAMPARE I 
DATI DEL FILE <S/N>" 

2630 GET SS: IF SS= " H THEN 2630 

2640 IF SSO"S" THEN 2810 

2650 PR INT "ALL INE A LA CARTA E BATTI 


2660 

£670 

2680 

2690 

2700 


UNO SPAZIO 4 * 

GET SS* IF SS=°" THEN 2666 
OPEN 3, 4* OPEN 4 ,4 ,6 : PR INT#4 ,CH 
RSC 18) 

PRINT#3,"I21 RIGHT3 r 


PR1NT#3,"C2I RIGHT] | 
GS=LEFTSCFS+ w 




II 


I " 


y 28 ) 

2710 PRINT#3,"CB1 RIGHT] | FILE: "j 
G$+ “ | “ 

2720 PRINTH3, " E21 RIGHT] I 

I " 

2730 PR INT#3 , * 12 I RIGHT]' 


2740 PR1NT»4,CHR*(24):CL0SE 4: FOR I 
-1 TO 41 
2750 L*=" 


2760 PRINT#3 : PR INT#3 ,L*«-L*+ ’LIfCA " ; 
IJ’ DELLA MAGLIA" 

2770 FOR T= 1 TO 31 STEP 6: FOR J=T T 
0 T+5:H*=LEFT*<STR*<H<I,J))+' 
",12> 

2780 PRINT#3,H*; :hEXTJ:PRINT#3:NEXT 
T 

2790 FOR J=37 TO 4 1 :H*=LEFT$(STR* <H 
CI,J)) + " ", 12) 

2800 PR ! NT#3 , H$; : NEXTJ :NEXTt : PR INT# 
3 i CLOSE 3 

2810 GOSUB 2070! RETURN 


2820 REM ************************ 
2830 REM * S0UBR-1INE VIDEO * 
2840 REM ************************ 
2850 GOSUB 2000 :PR INT* ( 13 RIGHT1ROU 
TINE GRAFICAI5 DOWN] * i RETTJRN 
.2360 REM ************************ 
2870 REM * SOUBR-^INE ~AZ 10^* 

2380 REM ************************ 
2890 GOSUB 2000 s PR INT* £11 RIGHT1R0T 
AZIONE 90 GRADIC5 DOWN]" 

2900 PRINT"I11 RIGHT] ATTENDERE PREG 
0’ 

2910 FOR 1 = 1 TO 4 1 ! FOR J=1 TO 41 
2920 HI < J,42-I )=H< I ,J ) 

2930 IsEXTJsf'CXTl 

2940 FOR 1=1 TO 41:F0R J=1 TO 41 
2950 H ( I , J) =H1 < I ,J) 

2960 ICXTJ : NEXTI ! GOTO 1480 
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Parliamo del S1D 


di Marco De Rosa 



6 parte 


(53295-54271) - Zona non mappa!» 


Come già detto in precedenza, la zona che va da $0000 fino 
a SDFFF e che normalmente conliene i registri per istruire tutti 
i chip di I/O, può essere anche usata come RAM (vedere 
locazioni 0 e 1). Quindi, se si ’poka" un numero in una 
locazione dì questa zona, questo viene messo nella RAM; ma 
una operazione di PEEK legge il valore della ROM corrispon- 
dente. Per poter rileggere il valore in RAM è necessario agire 
sulla locazione 1, spegnendo la ROM, leggendo la locazione, 
e poi riattivando. 

Quindi, se non voleie fare a meno dei chrp di I/O, questa 
zona è praticamente inutilizzabile. 

Musica 


La zona dì memoria che va da $0400 a SD418 (54272- 
54297) è riservata alla programmazione del SID (Sound Inter- 
face Device), cioè de! microprocessore che si occupa della 
gestione del suono. Come nel caso della zona grafica convie- 
ne chiamare la prima locazione con un nome, diciamo S, e 
riferirci alle seguenti aggiungendo un numero ad S, 

Alcune caratteristiche del SID sono: 

3 voci distinte da 0 a 4 KHz: 

4 forme d'onda per ogni voce (triangolare, rettangolare, dente 
dì sega, rumore); 

3 modulatori d'ampiezza {Range 48 dB); 

3 generatori di inviluppo ADSR; 

sincronizzazione degli oscillatori; 


modulazione ad anello; 
filtri programmabili; 
controllo volume generale; 
input audio esterno; 
generatore casuale di modulazione: 
2 convertitori A/D. 


54272-54273 (0-1) - Controllo 
di frequenza voce 


I valori contenuti in queste due locazioni sono usati dal SID 
per calcolare la frequenza del suono da emettere, relativo alla 
prima voce. Essi sono trattali come un unico numero a 16 bit 
(Fri). La frequenza d'uscita F è calcolata usando la formula: 

F=(Fn * Fc / 2 1 24) Hz 

dove Fc è la frequenza di dock dei 6510, cioè 1.02 MHz. 
Quindi la formula può essere ridotta a: 

F=(Fn. .069671609) Hz 

Ad esempio, per calcolare il numero Fn per if la corista (440 
Hz) basta eseguire: 

Fn«= (440/ .069671609) = 7217 

che, scomposto in due numeri a 0 bit. dà 

FnHigh= INT (721 7 / 256) - 28 

FnLow=INT (7127 - (FnHigh * 256)) = 49 
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Per ottenere or la corista basta scrivere: 

PGKE S-KJ.49 
POKE 8+1 .28 


bit 3 - bit di test Quando viene messo a 1 H resetta e blocca la 
prima voce, fino a quando non viene posto nuovamente a 
zero. Viene resettata anche la torma d'onda rumore per la 
prima voce e la rettangolare viene forzata a continua: 


(54274-54275) (2-3) - Ampiezza della forma 
d’onda rettangolare 

Questi due registri vengono visti come un numero a 12 bit 
Pw cosi formalo: 

Pw = PEEK(S+2) + P££K(S+3) . 256 

Questo numero rappresenta ( ampiezza della forma rettan- 
golare per fa voce 1 La percentuale di semiciclo positivo 
rispetto a quello negativo è data dalia formula: 

p% = (Rw / 40,95)% 

Quando Pw è uguale a 4095. si ottiene una tensione conti- 
nua; quando Pw è uguale a 2048. si ottiene un'onda quadra. 

Registro di controllo 

Ogni bit di questo di registro controlla un particolare aspetto 
della prima voce: 

bit 0 - Gate bit Controlla il generatore di inviluppo. Quando 
viene messo ON D) il ciclo APS ha inizio. Quando viene posto 
OFF, comincia la fase di release: 

Òrf f - bU di sincronismo Quando è posto ON, sincronizza la 
frequenza dell'oscillatore della prima voce, con la frequenza 
della voce 3. Variando la Fn della terza voce, sì ottengono 
effetti interessanti: 

bit 2 - bit di modulazione ad anello. Quando è messo ON. 
sostituisce la forma d'onda triangolare della prima voce, con 
una forma d'onda ottenuta modulando ad anello le voci 1 e 3. 
E' possibile in questo modo creare effetti di gong o strumenti 

simili. E' obbligatorio che la forma d'onda della voce i sia 
triangolare: 


bit 4 - forma d'onda triangolare . Quando è 1, viene scelta la 
forma d onda triangolare per la prima voce, Questa è adatta 
per suoni tipo flauto, o comunque poveri di armoniche: 
bit 5 - forma d'onda a dente di sega, in questo caso viene 
emesso un dente di sega, ricco di armoniche e adatto per 
suoni squillanti tipo ottoni 

bit 6 - torma d‘onda rettangolare . Viene emessa una rettango- 
lare, che può essere regolata con il valore nelle locazioni S+2 
e S+3. Questa forma d'onda può essere aggiustala in modo 
da riprodurre una enorme varietà di suoni. 

bif 7 - rumore . E la quarta e ultima forma d'onda possibile. E* 
utile per creare ogni tipo dì rumore, come spari, esplosioni e 
così via. 

Non è possibile sommare le forme d'onda sellando più bit 
QN. Il risultato è un AND logico che può creare effetti interes* 
santi, ma che può mandare in crash l'uscita audio. In questo 
caso è sufficiente resettare il bit di test. 


(54277-54278) (5-6) - Generatore 
d’inviluppo ADSR 


Questi due byies, organizzati in quattro nybbles. controllano 
il generatore d'inviluppo ADSR per la forma d'onda della voce 
1 : 


Registro $+5 
Registro S+5 
Registro S +6 
Registro S+6 


bit 4 - 7 Attack 
bit 0 - 3 Decay 
bit 4 - 7 Sustain 
bit 0 - 3 Release 


In figura 1 potete vedere le quattro fasi ADSR in figura 2 
sono riportati i tempi delle fasi A, D e R, Ricordate che la 
variazioni seguono un andamento esponenziale. Il valore del 
nybble di Sustain controlla semplicemente il volume 
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Valore 

Atlack Rate 

Decay/Release Rate 

0 

2 ms 

6 ms 

1 

8 ms 

24 ms 

2 

16 ms 

48 ms 

3 

24 ms 

72 ms 

4 

38 ms 

114 ms 

5 

56 ms 

168 ms 

6 

68 ms 

204 ms 

7 

80 ms 

240 ms 

8 

100 ms 

300 ms 

9 

250 ms 

750 ms 

10 

500 ms 

1.5 s 

11 

800 ms 

2.4 s 

12 

1 s 

3 s 

13 

3 s 

9 s 

14 

5 s 

15 s 

15 

8 s 

24 s 


Figura 2 

(54279-54285) (7-13) - VOCE 2 


Questi restii sono la copia di quelli precedenti. ma si 
riferiscono alta seconda voce. Le sole differenze sono: 

* quando è ON il bit di sincronismo, vengono sincronizzate le 
voci 2 e 1; 

■ quando è ON il bit di modulazione ad anello, vengono misce- 
late le voci 2 e 1 . 

(54286-54292) (14-20) - Voce 3 

Questi registri sono la copia di quelli precedenti, ma si 
riferiscono alla terza voce. Le soie differenze sono: 

* quando è ON il bit di sincronismo, vengono sincronizzate le 
voci 3 e 2; 

* quando è ON il bit di modulazione ad anello, vengono misce- 
late le voci 3 e 2 

(54293-54294) (21-22) - Frequenza di filtraggio 

In questi due registri, organizzati come un numero a 1 6 bit, è 
contenuta la frequenza dì taglio del filtro programmabile. Que- 
sta varia da 30 a 12 KHz, 


(54295) (23) - Risonanza del filtro 


E’ organizzato in un nybbie e 4 bils nel modo seguente: 


bit 4 ‘7 - risonanza del filtro, La risonanza è un effetto di picco 
che enfatizza le componenti delle frequenze vicine a quella di 
taglio, causando un suono più duro Ci sono 16 livelli di riso- 
nanza che vanno da un mìnimo di 0 (nessuna risonanza) a un 
massimo dì 15; 

bit 0 . Quando è OFF (0), la voce 1 non è filtrata e arriva 
all'uscita asattamente com'è. Quando è ON. viene invece 
filtrata. 

bit 1 . Come sopra per la voce 2: 
bit 2. Come sopra per la voce 3; 

bit 3. Come sopra per un segnale audio proveniente dall'e- 
sterno (pin 26), 

(54296) (24) * Registro modo filtro/volume 


E’ organizzato in un nybbie e quattro bits nel modo 
seguente: 
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brf 0-3 E' i! volume df uscita per le ire voci. 0 è il minimo 
volume. 

bit 4 Quando è 0N> il filtro diventa un passa basso con 
pendenza di 12dB/OTTAVA; 

bit 5 Come sopra, ma it filtro è un passa banda a 6dB/ 
OTTAVA; 

bit 6, Come il bit 4, ma il filtro è un passa alto; 

bti 7, Quando è QN. la voce 3 non è connessa all'uscita e può 
essere usata per le modulazioni 

(54297-54298) (25-26) - Convertitori A/D 


Questi registri permettono ai microprocessore di leggere la 
posizione dei potenziometri attaccati ai pins 24 e 23 del SID. Il 
valore può andare da zero (resistenza minima) a 255. Qui 
vengono letti i valori di resistenza delle paddles. La codifica è 
un po' complessa (se ne parlerà in seguito) e quindi per 
leggere le paddles in tempo reale è necessaria una routine in 
linguaggio macchina. 


(54299) ( 27) - Generatore numeri casuali 

In questo registro sì possono leggere gli 0 bits alti dell'uscita 
della terza voce. La cosa è interessante se si seleziona la 
forma d“onda rumore per questa voce, in quanto questo regi- 
stro sì comporta come un generatore di numeri casuali. 


(54300) (28) - Generatore inviluppo voce 3 

In questo registro si possono leggere gli 8 bit alti dell uscita 
della terza voce relativamente al suo inviluppo. Programmato* 
ri esperii potranno creare in quésto modo suoni di tipo Wah- 
Waho simili. 

(54301-55295) - Zona non mappata 

Vale il discorso per le precedenti zone non mappate 


(55296-56319) - Area colore 

Quest'area contiene i codici colore per ognuno dei 1000 
bytes dì schermo, in corrispondenza con la RAM da 1024 a 
2024. 
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HEX 

DEC 

DESCRIZIONE 

D02F-D3FF 53295-54271 

Zona non mappata 

D400 

54272 

Voce 1: controllo frequenza, byte basso. 

D401 

54273 

Voce 1: controllo frequenza, byte alto. 

D402 

54274 

Voce 1: Larghezza periodo della forma d'onda rettangolare, 
byte basso. 

D403 

54275 

Voce 1: Larghezza periodo della forma d’onda rettangolare, 
byte alto. 

D404 

54276 

Voce 1 : Registro di controllo. 

D405 

54277 

Voce I: Generatore di inviluppo, primo byte: Attack e decay. 

D406 

54278 

Voce 1: Generatore di inviluppo, secondo byte: Sustain e 
release. 

D407 

54279 

Voce 2: controllo frequenza, byte basso. 

D408 

54280 

Voce 2: controllo frequenza, byte alto. 

D409 

54281 

Voce 2: Larghezza periodo della forma d'onda rettangolare, 
byte basso. 

D40À 

54282 

Voce 2: Larghezza periodo della forma d'onda rettangolare, 
byte alto. 

D40B 

54283 

Voce 2: Registro di controllo. 

D40C 

54284 

Voce 2: Generatore di inviluppo, primo byte: Attack e decay. 

D40D 

54285 

Voce 2: Generatore di inviluppo, secondo byte: Sustain e 
release. 

D40E 

54286 

Voce 3: controllo frequenza, byte basso. 

D40F 

54287 

Voce 3: controllo frequenza, byte alto. 

D410 

54288 

Voce 3: Larghezza periodo della forma d’onda rettangolare, 
byte basso. 

D41 1 

54289 

Voce 3: Larghezza periodo della forma d'onda rettangolare, 
byte alto. 

D412 

54290 

Voce 3: Registro di controllo. 

D413 

54291 

Voce 3: Generatore di inviluppo, primo byte: Attack e decay. 

D414 

54292 

Voce 3: Generatore di inviluppo, secondo byte: Sustain e 
release. 

D415 

54293 

Frequenza di taglio del filtro: byte basso. 

D416 

54294 

Frequenza di taglio del filtro: byte alto, 

D417 

54295 

Risonanza filtro e controllo ingresso voce. 

D418 

54296 

Volume e modo di filtraggio. 

D419 

54297 

Convertitore A/D porta 1 . 

D420 

54298 

Convertitore A/D porta 2. 

D41B 

54299 

Generatore di numeri casuali agganciato alla terza voce. 

D41C 

54300 

Uscita digitale dell'inviluppo ADSR per la voce 3. 

D4 ! D-D7FF 54301-55295 

Zona non mappata. 

D800-DBFF 55296-56319 

RAM colore. 


G2 - Commodore 



SPAZIO & DESIGN 



NELL' 


■H 

KBJr 


Uì 


il ■ 
■i 

L 

|J 



i ' LA SCELTA 1 
S PILI LOGICA 4 


Forniture per Cenici EUbcr aziona Dati 
Sede Arnm.ve: 3014* Milano ■ Via Barn. 29 
T«l 4963541 {4 lince Telex 324426 MEE ■ I 

FmaN i Agenzie: Milano - Bergamo ■ Torino - 
Biella ■ PMfova Parma Bologna ■ Firenze Ancone 
Pomi - Napoli ■ Cai a ma Ori siano - Ben Genove 
Bolzano Mesi re 


Memorie 
per Elaboratori 


Elettronici s.p.A 


VIDEOREGISTRI? 


VR insegna, aggiorna 
ti fa toccare con mano 
tutte le novità 



OGNI MESE IN EDICOLA 



